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)) |