changeset 43881:e9654452ad5e

* progmodes/etags.el (tag-exact-file-name-match-p) (tag-file-name-match-p, tag-partial-file-name-match-p): Use a simpler regexp.
author Francesco Potortì <pot@gnu.org>
date Wed, 13 Mar 2002 14:48:00 +0000
parents 054519242c8b
children e601e469e7a4
files lisp/progmodes/etags.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/etags.el	Wed Mar 13 14:47:12 2002 +0000
+++ b/lisp/progmodes/etags.el	Wed Mar 13 14:48:00 2002 +0000
@@ -1506,13 +1506,13 @@
 ;; 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")
+  (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")
+  (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,7 +1523,7 @@
 ;; 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")
+  (and (looking-at ".*,[0-9\n]")
        (save-excursion (beginning-of-line)
                        (backward-char 2)
   		       (looking-at "\f\n"))))