From 72b520ed276c81ca0f6c3c23c521757f34725d86 Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Tue, 3 Nov 2009 08:29:06 +0100
Subject: [PATCH] Make `org-priority' accept an action argument `remove'

When given, the priority cookie will be removed.
---
 lisp/ChangeLog | 2 ++
 lisp/org.el    | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9856ad711..e0f4f9d9d 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 a5a2e0370..0d88540ea 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))