From 0700eb152da4c57419a391161107b48d81abdeb2 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sun, 31 May 2015 03:55:30 +0300 Subject: [PATCH] Make sure there's no explicit tag name * lisp/progmodes/etags.el (tag-implicit-name-match-p): Make sure there's no explicit tag name (bug#20629). --- lisp/progmodes/etags.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 329d899a588..d03032d0abb 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1628,7 +1628,8 @@ Point should be just after a string that matches TAG." ;; Look at the comment of the make_tag function in lib-src/etags.c for ;; a textual description of the four rules. (and (string-match "^[^ \t()=,;]+$" tag) ;rule #1 - (looking-at "[ \t()=,;]?\177") ;rules #2 and #4 + ;; Rules #2 and #4, and a check that there's no explicit name. + (looking-at "[ \t()=,;]?\177\\(?:[0-9]+\\)?,\\(?:[0-9]+\\)?$") (save-excursion (backward-char (1+ (length tag))) (looking-at "[\n \t()=,;]")))) ;rule #3 -- 2.11.4.GIT