From e78cb895ca969438603300e566a4dfe702d44776 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 8 Mar 2012 14:08:15 +0100 Subject: [PATCH] org.el (org-get-category): Save match data. * org.el (org-get-category): Save match data. Thanks to Adam Spiers for spotting this issue. --- lisp/org.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 160431749..b6c60a1eb 100644 --- a/lisp/org.el +++ b/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."