aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDmitry Gutov2015-05-31 03:55:30 +0300
committerDmitry Gutov2015-05-31 03:55:30 +0300
commit0700eb152da4c57419a391161107b48d81abdeb2 (patch)
tree0076fe180986c61dc8bcd8c60fde7743a3808462
parentd90a3b186d57ac700a32988b720f76f289740ece (diff)
downloademacs-0700eb152da4c57419a391161107b48d81abdeb2.tar.gz
emacs-0700eb152da4c57419a391161107b48d81abdeb2.zip
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).
-rw-r--r--lisp/progmodes/etags.el3
1 files changed, 2 insertions, 1 deletions
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."
1628 ;; Look at the comment of the make_tag function in lib-src/etags.c for 1628 ;; Look at the comment of the make_tag function in lib-src/etags.c for
1629 ;; a textual description of the four rules. 1629 ;; a textual description of the four rules.
1630 (and (string-match "^[^ \t()=,;]+$" tag) ;rule #1 1630 (and (string-match "^[^ \t()=,;]+$" tag) ;rule #1
1631 (looking-at "[ \t()=,;]?\177") ;rules #2 and #4 1631 ;; Rules #2 and #4, and a check that there's no explicit name.
1632 (looking-at "[ \t()=,;]?\177\\(?:[0-9]+\\)?,\\(?:[0-9]+\\)?$")
1632 (save-excursion 1633 (save-excursion
1633 (backward-char (1+ (length tag))) 1634 (backward-char (1+ (length tag)))
1634 (looking-at "[\n \t()=,;]")))) ;rule #3 1635 (looking-at "[\n \t()=,;]")))) ;rule #3