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'.
This commit is contained in:
Bastien Guerry 2013-01-04 18:15:51 +01:00
parent f90bc18561
commit 6a0c650dd2
1 changed files with 3 additions and 3 deletions

View File

@ -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."
(save-match-data
(if (functionp org-get-priority-function)
(funcall org-get-priority-function)
(save-match-data
(if (not (string-match org-priority-regexp s))
(* 1000 (- org-lowest-priority org-default-priority))
(* 1000 (- org-lowest-priority