From 1381f9e6a84626e712dcde6ba171f32d378a4395 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Francesco=20Potort=C3=AC?= Date: Tue, 12 Mar 2002 13:12:34 +0000 Subject: [PATCH] * progmodes/etags.el (tag-exact-file-name-match-p) (tag-file-name-match-p, tag-partial-file-name-match-p): Assume that the header of a tags section has either a number or nothing after the last comma. --- lisp/progmodes/etags.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index a95285bf18c..4bcc6135bbe 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1506,13 +1506,13 @@ where they were found." ;; 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 ",") + (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 ",") + (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 @@ where they were found." ;; 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 ".*,") + (and (looking-at ".*,[0-9]\\|\n") (save-excursion (beginning-of-line) (backward-char 2) (looking-at "\f\n")))) -- 2.39.2