# HG changeset patch # User Francesco Potort # Date 1016030880 0 # Node ID e9654452ad5e24b1f1abdbd65f39bdc38e4b98ca # Parent 054519242c8bf876fc8885dc3672ced336668af4 * progmodes/etags.el (tag-exact-file-name-match-p) (tag-file-name-match-p, tag-partial-file-name-match-p): Use a simpler regexp. diff -r 054519242c8b -r e9654452ad5e lisp/progmodes/etags.el --- 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"))))