summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-01-04 17:15:51 (GMT)
committer Bastien Guerry <bzg@altern.org>2013-01-04 17:15:51 (GMT)
commit6a0c650dd2c2ba9f922663750e066fb47e2b2111 (patch)
tree9ed0447e6a35707c9f73dc721f1ffc48e08abb47
parentf90bc1856133e972b14b140dfdedfb733d0d4561 (diff)
downloadorg-mode-6a0c650dd2c2ba9f922663750e066fb47e2b2111.zip
org-mode-6a0c650dd2c2ba9f922663750e066fb47e2b2111.tar.gz
org.el (org-get-priority): Save match data even when using `org-get-priority-function'
* org.el (org-get-priority): Save match data even when using `org-get-priority-function'.
-rw-r--r--lisp/org.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 7522a0a..c52f9a5 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -13011,9 +13011,9 @@ and by additional input from the age of a schedules or deadline entry."
(defun org-get-priority (s)
"Find priority cookie and return priority."
- (if (functionp org-get-priority-function)
- (funcall org-get-priority-function)
- (save-match-data
+ (save-match-data
+ (if (functionp org-get-priority-function)
+ (funcall org-get-priority-function)
(if (not (string-match org-priority-regexp s))
(* 1000 (- org-lowest-priority org-default-priority))
(* 1000 (- org-lowest-priority