ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org.el
View File

@ -13011,9 +13011,9 @@ and by additional input from the age of a schedules or deadline entry."
(defun org-get-priority (s) (defun org-get-priority (s)
"Find priority cookie and return priority." "Find priority cookie and return priority."
(if (functionp org-get-priority-function) (save-match-data
(funcall org-get-priority-function) (if (functionp org-get-priority-function)
(save-match-data (funcall org-get-priority-function)
(if (not (string-match org-priority-regexp s)) (if (not (string-match org-priority-regexp s))
(* 1000 (- org-lowest-priority org-default-priority)) (* 1000 (- org-lowest-priority org-default-priority))
(* 1000 (- org-lowest-priority (* 1000 (- org-lowest-priority