[Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el

[Francesco Potortì]

Index: emacs/lisp/progmodes/etags.el
diff -c emacs/lisp/progmodes/etags.el:1.160 emacs/lisp/progmodes/etags.el:1.161
*** emacs/lisp/progmodes/etags.el:1.160 Fri Feb 22 11:29:33 2002
--- emacs/lisp/progmodes/etags.el       Tue Mar 12 08:12:34 2002
***************
*** 1506,1518 ****
  ;; exact file name match, i.e. searched tag must match complete file
  ;; name including directories parts if there are some.
  (defun tag-exact-file-name-match-p (tag)
!   (and (looking-at ",")
         (save-excursion (backward-char (+ 2 (length tag)))
                       (looking-at "\f\n"))))
  ;; file name match as above, but searched tag must match the file
  ;; name not including the directories if there are some.
  (defun tag-file-name-match-p (tag)
!   (and (looking-at ",")
         (save-excursion (backward-char (1+ (length tag)))
                       (looking-at "/"))))
  ;; this / to detect we are after a directory separator is ok for unix,
--- 1506,1518 ----
  ;; exact file name match, i.e. searched tag must match complete file
  ;; name including directories parts if there are some.
  (defun tag-exact-file-name-match-p (tag)
!   (and (looking-at ",[0-9]\\|\n")
         (save-excursion (backward-char (+ 2 (length tag)))
                       (looking-at "\f\n"))))
  ;; file name match as above, but searched tag must match the file
  ;; name not including the directories if there are some.
  (defun tag-file-name-match-p (tag)
!   (and (looking-at ",[0-9]\\|\n")
         (save-excursion (backward-char (1+ (length tag)))
                       (looking-at "/"))))
  ;; this / to detect we are after a directory separator is ok for unix,
***************
*** 1523,1529 ****
  ;; partial file name match, i.e. searched tag must match a substring
  ;; of the file name (potentially including a directory separator).
  (defun tag-partial-file-name-match-p (tag)
!   (and (looking-at ".*,")
         (save-excursion (beginning-of-line)
                         (backward-char 2)
                       (looking-at "\f\n"))))
--- 1523,1529 ----
  ;; partial file name match, i.e. searched tag must match a substring
  ;; of the file name (potentially including a directory separator).
  (defun tag-partial-file-name-match-p (tag)
!   (and (looking-at ".*,[0-9]\\|\n")
         (save-excursion (beginning-of-line)
                         (backward-char 2)
                       (looking-at "\f\n"))))