comparison lisp/progmodes/etags.el @ 28738:d53c2c6bc56f

(etags-tags-completion-table): Add a `:' in the second character class of the regexp.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 27 Apr 2000 18:54:39 +0000
parents 351e38e6b866
children 3b2040b6030a
comparison
equal deleted inserted replaced
28737:fcd4ecfbaafe 28738:d53c2c6bc56f
1153 ;; \4 is not interesting; 1153 ;; \4 is not interesting;
1154 ;; \5 is the explicitly-specified tag name. 1154 ;; \5 is the explicitly-specified tag name.
1155 ;; \6 is the line to start searching at; 1155 ;; \6 is the line to start searching at;
1156 ;; \7 is the char to start searching at. 1156 ;; \7 is the char to start searching at.
1157 (while (re-search-forward 1157 (while (re-search-forward
1158 "^\\(\\([^\177]+[^-a-zA-Z0-9_+*$\177]+\\)?\ 1158 "^\\(\\([^\177]+[^-a-zA-Z0-9_+*$:\177]+\\)?\
1159 \\([-a-zA-Z0-9_+*$?:]+\\)[^-a-zA-Z0-9_+*$?:\177]*\\)\177\ 1159 \\([-a-zA-Z0-9_+*$?:]+\\)[^-a-zA-Z0-9_+*$?:\177]*\\)\177\
1160 \\(\\([^\n\001]+\\)\001\\)?\\([0-9]+\\)?,\\([0-9]+\\)?\n" 1160 \\(\\([^\n\001]+\\)\001\\)?\\([0-9]+\\)?,\\([0-9]+\\)?\n"
1161 nil t) 1161 nil t)
1162 (intern (if (match-beginning 5) 1162 (intern (if (match-beginning 5)
1163 ;; There is an explicit tag name. 1163 ;; There is an explicit tag name.