diff options
| author | Bastien Guerry <bzg@altern.org> | 2012-03-08 14:08:38 +0100 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2012-03-08 14:08:38 +0100 |
| commit | dfa317b6f3211f0153814e87e418e7a1d956023a (patch) | |
| tree | 56ff482472cb31232e1ebeae4b98a492d8483990 | |
| parent | b879590f3ba285198344f7cded47b96fd576df29 (diff) | |
| parent | e78cb895ca969438603300e566a4dfe702d44776 (diff) | |
| download | org-mode-dfa317b6f3211f0153814e87e418e7a1d956023a.tar.gz | |
Merge branch 'maint'
| -rw-r--r-- | lisp/org.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/org.el b/lisp/org.el index 22d2208..de372ca 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8534,11 +8534,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." |