/[emacs]/emacs/lisp/progmodes/etags.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/etags.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.167 by pot, Thu Jun 20 10:12:43 2002 UTC revision 1.168 by pot, Thu Jun 20 11:27:01 2002 UTC
# Line 1196  where they were found." Line 1196  where they were found."
1196                 (find-tag-tag-order . (tag-exact-file-name-match-p                 (find-tag-tag-order . (tag-exact-file-name-match-p
1197                                        tag-file-name-match-p                                        tag-file-name-match-p
1198                                        tag-exact-match-p                                        tag-exact-match-p
1199                                          tag-implicit-name-match-p
1200                                        tag-symbol-match-p                                        tag-symbol-match-p
1201                                        tag-word-match-p                                        tag-word-match-p
1202                                        tag-partial-file-name-match-p                                        tag-partial-file-name-match-p
# Line 1505  where they were found." Line 1506  where they were found."
1506        ;; We are not on the explicit tag name, but perhaps it follows.        ;; We are not on the explicit tag name, but perhaps it follows.
1507        (looking-at (concat "[^\177\n]*\177" (regexp-quote tag) "\001"))))        (looking-at (concat "[^\177\n]*\177" (regexp-quote tag) "\001"))))
1508    
1509    ;; t if point is at a tag line that has an implicit name.
1510    ;; point should be just after a string that matches TAG.
1511    (defun tag-implicit-name-match-p (tag)
1512      ;; Look at the comment of the make_tag function in lib-src/etags.c for
1513      ;; a textual description of the four rules.
1514      (and (string-match "^[^ \t()=,;]+$" tag) ;rule #1
1515           (looking-at "[ \t()=,;]?\177")   ;rules #2 and #4
1516           (save-excursion
1517             (backward-char (1+ (length tag)))
1518             (looking-at "[\n \t()=,;]")))) ;rule #3
1519    
1520  ;; t if point is at a tag line that matches TAG as a symbol.  ;; t if point is at a tag line that matches TAG as a symbol.
1521  ;; point should be just after a string that matches TAG.  ;; point should be just after a string that matches TAG.
1522  (defun tag-symbol-match-p (tag)  (defun tag-symbol-match-p (tag)

Legend:
Removed from v.1.167  
changed lines
  Added in v.1.168

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26