]> git.eshelyaron.com Git - emacs.git/commitdiff
Make sure there's no explicit tag name
authorDmitry Gutov <dgutov@yandex.ru>
Sun, 31 May 2015 00:55:30 +0000 (03:55 +0300)
committerDmitry Gutov <dgutov@yandex.ru>
Sun, 31 May 2015 00:55:30 +0000 (03:55 +0300)
* lisp/progmodes/etags.el (tag-implicit-name-match-p): Make sure
there's no explicit tag name (bug#20629).

lisp/progmodes/etags.el

index 329d899a588e190ee0cb137c145202d72f654efa..d03032d0abb70db5e1fdf9b6bdb302fb2dcd2941 100644 (file)
@@ -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