summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-07-03 14:01:03 (GMT)
committer Bastien Guerry <bzg@altern.org>2013-07-03 14:01:03 (GMT)
commitf0c2a680568009ad2f93020af8134dbd481070e2 (patch)
tree85c9d051413928bf92a615e16db307a069485a11
parent9deb5027e286a9425ce8ba32718ba30452027048 (diff)
downloadorg-mode-f0c2a680568009ad2f93020af8134dbd481070e2.zip
org-mode-f0c2a680568009ad2f93020af8134dbd481070e2.tar.gz
org.el (org-tags-expand): Use `with-syntax-table'
* org.el (org-tags-expand): Use `with-syntax-table'.
-rw-r--r--lisp/org.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 6a9185b..9649500 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)))