mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

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

Browse Source 
before the tag name, let it end with any char not allowed in a tag.
This commit is contained in:
Richard M. Stallman 1993-06-12 23:43:57 +00:00
parent 3e36c563db
commit bcd54802d5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/progmodes/etags.el
View File

@ -915,7 +915,8 @@ See documentation of variable `tags-file-name'."
;; \6 is not interesting;
;; \7 is the explicitly-specified tag name.
(while (re-search-forward
"^\\(\\(.+[ \t]+\\)?\\([-a-zA-Z0-9_$]+\\)[^-a-zA-Z0-9_$]*\\)\177\
"^\\(\\(.+[^-a-zA-Z0-9_$]+\\)?\\([-a-zA-Z0-9_$]+\\)\
\[^-a-zA-Z0-9_$]*\\)\177\
\\([0-9]+\\),\\([0-9]+\\)\\(,\001\\([^\n]+\\)\\)?\n"
nil t)
(intern (if (match-beginning 6)