/[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.160 by eliz, Fri Feb 22 16:29:33 2002 UTC revision 1.161 by pot, Tue Mar 12 13:12:34 2002 UTC
# Line 1506  where they were found." Line 1506  where they were found."
1506  ;; exact file name match, i.e. searched tag must match complete file  ;; exact file name match, i.e. searched tag must match complete file
1507  ;; name including directories parts if there are some.  ;; name including directories parts if there are some.
1508  (defun tag-exact-file-name-match-p (tag)  (defun tag-exact-file-name-match-p (tag)
1509    (and (looking-at ",")    (and (looking-at ",[0-9]\\|\n")
1510         (save-excursion (backward-char (+ 2 (length tag)))         (save-excursion (backward-char (+ 2 (length tag)))
1511                         (looking-at "\f\n"))))                         (looking-at "\f\n"))))
1512  ;; file name match as above, but searched tag must match the file  ;; file name match as above, but searched tag must match the file
1513  ;; name not including the directories if there are some.  ;; name not including the directories if there are some.
1514  (defun tag-file-name-match-p (tag)  (defun tag-file-name-match-p (tag)
1515    (and (looking-at ",")    (and (looking-at ",[0-9]\\|\n")
1516         (save-excursion (backward-char (1+ (length tag)))         (save-excursion (backward-char (1+ (length tag)))
1517                         (looking-at "/"))))                         (looking-at "/"))))
1518  ;; this / to detect we are after a directory separator is ok for unix,  ;; this / to detect we are after a directory separator is ok for unix,
# Line 1523  where they were found." Line 1523  where they were found."
1523  ;; partial file name match, i.e. searched tag must match a substring  ;; partial file name match, i.e. searched tag must match a substring
1524  ;; of the file name (potentially including a directory separator).  ;; of the file name (potentially including a directory separator).
1525  (defun tag-partial-file-name-match-p (tag)  (defun tag-partial-file-name-match-p (tag)
1526    (and (looking-at ".*,")    (and (looking-at ".*,[0-9]\\|\n")
1527         (save-excursion (beginning-of-line)         (save-excursion (beginning-of-line)
1528                         (backward-char 2)                         (backward-char 2)
1529                         (looking-at "\f\n"))))                         (looking-at "\f\n"))))

Legend:
Removed from v.1.160  
changed lines
  Added in v.1.161

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