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