diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2009-11-03 08:29:06 +0100 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2009-11-03 08:29:06 +0100 |
commit | 72b520ed276c81ca0f6c3c23c521757f34725d86 (patch) | |
tree | f4211bf86706978564cfa94663922ba303e19fc3 | |
parent | 0b156b94a723fa5b5fc52d9754fada11e4995848 (diff) | |
download | org-mode-72b520ed276c81ca0f6c3c23c521757f34725d86.tar.gz |
Make `org-priority' accept an action argument `remove'
When given, the priority cookie will be removed.
-rwxr-xr-x | lisp/ChangeLog | 2 | ||||
-rw-r--r-- | lisp/org.el | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9856ad7..e0f4f9d 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,8 @@ * org.el (org-refile): Make prefix argument 2 refile to current clock. + (org-priority): Interpret action `remove' as call to remove the + priority cookie. * org-remember.el (org-remember-apply-template): Don't depend on buffer name being like file name. diff --git a/lisp/org.el b/lisp/org.el index a5a2e03..0d88540 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -10770,6 +10770,8 @@ ACTION can be `set', `up', `down', or a character." have t) (setq current org-default-priority)) (cond + ((eq action 'remove) + (setq remote t new ?\ )) ((or (eq action 'set) (if (featurep 'xemacs) (characterp action) (integerp action))) (if (not (eq action 'set)) |