Mercurial > emacs
comparison lisp/progmodes/etags.el @ 9152:364abaa6ddf2
(etags-tags-completion-table): Allow ? and : in guessed tag names.
author | Roland McGrath <roland@gnu.org> |
---|---|
date | Tue, 27 Sep 1994 05:41:20 +0000 |
parents | e0709ca0418a |
children | 6cd679419a9c |
comparison
equal
deleted
inserted
replaced
9151:02bee4d2de9a | 9152:364abaa6ddf2 |
---|---|
984 ;; \4 is not interesting; | 984 ;; \4 is not interesting; |
985 ;; \5 is the explicitly-specified tag name. | 985 ;; \5 is the explicitly-specified tag name. |
986 ;; \6 is the line to start searching at; | 986 ;; \6 is the line to start searching at; |
987 ;; \7 is the char to start searching at. | 987 ;; \7 is the char to start searching at. |
988 (while (re-search-forward | 988 (while (re-search-forward |
989 "^\\(\\(.+[^-a-zA-Z0-9_$]+\\)?\\([-a-zA-Z0-9_$]+\\)\ | 989 "^\\(\\(.+[^-a-zA-Z0-9_$]+\\)?\\([-a-zA-Z0-9_$?:]+\\)\ |
990 \[^-a-zA-Z0-9_$]*\\)\177\\(\\([^\n\001]+\\)\001\\)?\ | 990 \[^-a-zA-Z0-9_$?:]*\\)\177\\(\\([^\n\001]+\\)\001\\)?\ |
991 \\([0-9]+\\)?,\\([0-9]+\\)?\n" | 991 \\([0-9]+\\)?,\\([0-9]+\\)?\n" |
992 nil t) | 992 nil t) |
993 (intern (if (match-beginning 5) | 993 (intern (if (match-beginning 5) |
994 ;; There is an explicit tag name. | 994 ;; There is an explicit tag name. |
995 (buffer-substring (match-beginning 5) (match-end 5)) | 995 (buffer-substring (match-beginning 5) (match-end 5)) |