diff options
author | Bastien Guerry <bzg@altern.org> | 2013-07-03 16:01:03 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-07-03 16:01:03 +0200 |
commit | f0c2a680568009ad2f93020af8134dbd481070e2 (patch) | |
tree | 85c9d051413928bf92a615e16db307a069485a11 | |
parent | 9deb5027e286a9425ce8ba32718ba30452027048 (diff) | |
download | 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.el | 7 |
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))) |