forked from mirrors/org-mode
org.el (org-get-category): Save match data.
* org.el (org-get-category): Save match data. Thanks to Adam Spiers for spotting this issue.
This commit is contained in:
parent
11e441e85f
commit
e78cb895ca
11
lisp/org.el
11
lisp/org.el
|
@ -8495,11 +8495,12 @@ call CMD."
|
|||
|
||||
(defun org-get-category (&optional pos force-refresh)
|
||||
"Get the category applying to position POS."
|
||||
(if force-refresh (org-refresh-category-properties))
|
||||
(let ((pos (or pos (point))))
|
||||
(or (get-text-property pos 'org-category)
|
||||
(progn (org-refresh-category-properties)
|
||||
(get-text-property pos 'org-category)))))
|
||||
(save-match-data
|
||||
(if force-refresh (org-refresh-category-properties))
|
||||
(let ((pos (or pos (point))))
|
||||
(or (get-text-property pos 'org-category)
|
||||
(progn (org-refresh-category-properties)
|
||||
(get-text-property pos 'org-category))))))
|
||||
|
||||
(defun org-refresh-category-properties ()
|
||||
"Refresh category text properties in the buffer."
|
||||
|
|
Loading…
Reference in New Issue