diff options
author | Bastien Guerry <bzg@altern.org> | 2013-01-04 18:15:51 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-04 18:15:51 +0100 |
commit | 6a0c650dd2c2ba9f922663750e066fb47e2b2111 (patch) | |
tree | 9ed0447e6a35707c9f73dc721f1ffc48e08abb47 | |
parent | f90bc1856133e972b14b140dfdedfb733d0d4561 (diff) | |
download | 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.el | 6 |
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 |