Commit bcd54802 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(etags-tags-completion-table): When skipping the noise

before the tag name, let it end with any char not allowed in a tag.
parent 3e36c563
...@@ -915,7 +915,8 @@ See documentation of variable `tags-file-name'." ...@@ -915,7 +915,8 @@ See documentation of variable `tags-file-name'."
;; \6 is not interesting; ;; \6 is not interesting;
;; \7 is the explicitly-specified tag name. ;; \7 is the explicitly-specified tag name.
(while (re-search-forward (while (re-search-forward
"^\\(\\(.+[ \t]+\\)?\\([-a-zA-Z0-9_$]+\\)[^-a-zA-Z0-9_$]*\\)\177\ "^\\(\\(.+[^-a-zA-Z0-9_$]+\\)?\\([-a-zA-Z0-9_$]+\\)\
\\([0-9]+\\),\\([0-9]+\\)\\(,\001\\([^\n]+\\)\\)?\n" \\([0-9]+\\),\\([0-9]+\\)\\(,\001\\([^\n]+\\)\\)?\n"
nil t) nil t)
(intern (if (match-beginning 6) (intern (if (match-beginning 6)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment