From f0c2a680568009ad2f93020af8134dbd481070e2 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Wed, 3 Jul 2013 16:01:03 +0200 Subject: [PATCH] org.el (org-tags-expand): Use `with-syntax-table' * org.el (org-tags-expand): Use `with-syntax-table'. --- lisp/org.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 6a9185bc4..9649500f9 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14147,9 +14147,10 @@ When DOWNCASE is non-nil, expand downcased TAGS." (modify-syntax-entry ?@ "w" stable) (modify-syntax-entry ?_ "w" stable) (while (and tml - (string-match - (concat "\\(?1:[+-]?\\)\\(?2:\\<" - (regexp-opt tml) "\\>\\)") rtnmatch)) + (with-syntax-table stable + (string-match + (concat "\\(?1:[+-]?\\)\\(?2:\\<" + (regexp-opt tml) "\\>\\)") rtnmatch))) (let* ((dir (match-string 1 rtnmatch)) (tag (match-string 2 rtnmatch)) (tag (if downcased (downcase tag) tag)))