diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2015-05-31 03:55:30 +0300 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2015-05-31 03:55:30 +0300 |
| commit | 0700eb152da4c57419a391161107b48d81abdeb2 (patch) | |
| tree | 0076fe180986c61dc8bcd8c60fde7743a3808462 | |
| parent | d90a3b186d57ac700a32988b720f76f289740ece (diff) | |
| download | emacs-0700eb152da4c57419a391161107b48d81abdeb2.tar.gz | |
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.el | 3 |
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." ;; 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 |