diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2018-03-29 17:41:11 -0700 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2019-01-13 12:43:04 -0500 |
commit | 32dbbfa26ce92586dc01af8a30e40ed2700e581a (patch) | |
tree | 8bade239fe280117fcc1681efdd633c3673b4813 | |
parent | d5a7a1a22c3d740adc3257d55d88a4533b48e69b (diff) | |
download | org-mode-32dbbfa26ce92586dc01af8a30e40ed2700e581a.tar.gz |
Backport commit 20b858ef1 from Emacs
Prefer \... to control chars in .el literals
20b858ef13f8f71fae6cbce5cdac31c4dd130600
Paul Eggert
Thu Mar 29 17:43:08 2018 -0700
-rw-r--r-- | lisp/org-ctags.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-ctags.el b/lisp/org-ctags.el index f4cf90c..111be37 100644 --- a/lisp/org-ctags.el +++ b/lisp/org-ctags.el @@ -236,7 +236,7 @@ buffer position where the tag is found." (with-current-buffer (get-file-buffer tags-file-name) (goto-char (point-min)) (cond - ((re-search-forward (format "^.*%s\\([0-9]+\\),\\([0-9]+\\)$" + ((re-search-forward (format "^.*\^?%s\^A\\([0-9]+\\),\\([0-9]+\\)$" (regexp-quote tag)) nil t) (let ((line (string-to-number (match-string 1))) (pos (string-to-number (match-string 2)))) @@ -261,7 +261,7 @@ Return the list." (visit-tags-table-buffer 'same) (with-current-buffer (get-file-buffer tags-file-name) (goto-char (point-min)) - (while (re-search-forward "^.*\\(.*\\)\\([0-9]+\\),\\([0-9]+\\)$" + (while (re-search-forward "^.*\^?\\(.*\\)\^A\\([0-9]+\\),\\([0-9]+\\)$" nil t) (push (substring-no-properties (match-string 1)) taglist))) taglist))) |