tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org.el (org-tags-expand): Use `with-syntax-table' 

* org.el (org-tags-expand): Use `with-syntax-table'.
This commit is contained in:
Bastien Guerry 2013-07-03 16:01:03 +02:00
parent 9deb5027e2
commit f0c2a68056
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org.el
View File

@ -14147,9 +14147,10 @@ When DOWNCASE is non-nil, expand downcased TAGS."
(modify-syntax-entry ?@ "w" stable) (modify-syntax-entry ?@ "w" stable)
(modify-syntax-entry ?_ "w" stable) (modify-syntax-entry ?_ "w" stable)
(while (and tml (while (and tml
(string-match (with-syntax-table stable
(concat "\\(?1:[+-]?\\)\\(?2:\\<" (string-match
(regexp-opt tml) "\\>\\)") rtnmatch)) (concat "\\(?1:[+-]?\\)\\(?2:\\<"
(regexp-opt tml) "\\>\\)") rtnmatch)))
(let* ((dir (match-string 1 rtnmatch)) (let* ((dir (match-string 1 rtnmatch))
(tag (match-string 2 rtnmatch)) (tag (match-string 2 rtnmatch))
(tag (if downcased (downcase tag) tag))) (tag (if downcased (downcase tag) tag)))