Browse Source

Make `org-priority' accept an action argument `remove'

When given, the priority cookie will be removed.
Carsten Dominik 15 years ago
parent
commit
72b520ed27
2 changed files with 4 additions and 0 deletions
  1. 2 0
      lisp/ChangeLog
  2. 2 0
      lisp/org.el

+ 2 - 0
lisp/ChangeLog

@@ -2,6 +2,8 @@
 
 
 	* org.el (org-refile): Make prefix argument 2 refile to current
 	* org.el (org-refile): Make prefix argument 2 refile to current
 	clock.
 	clock.
+	(org-priority): Interpret action `remove' as call to remove the
+	priority cookie.
 
 
 	* org-remember.el (org-remember-apply-template): Don't depend on
 	* org-remember.el (org-remember-apply-template): Don't depend on
 	buffer name being like file name.
 	buffer name being like file name.

+ 2 - 0
lisp/org.el

@@ -10770,6 +10770,8 @@ ACTION can be `set', `up', `down', or a character."
 		have t)
 		have t)
 	(setq current org-default-priority))
 	(setq current org-default-priority))
       (cond
       (cond
+       ((eq action 'remove)
+	(setq remote t new ?\ ))
        ((or (eq action 'set)
        ((or (eq action 'set)
 	    (if (featurep 'xemacs) (characterp action) (integerp action)))
 	    (if (featurep 'xemacs) (characterp action) (integerp action)))
 	(if (not (eq action 'set))
 	(if (not (eq action 'set))