diff options
| author | Robert Weiner <rswgnu@gmail.com> | 2020-08-19 15:28:32 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-19 15:28:32 +0200 |
| commit | 3d0e0d9e77ac59725cffe89fdef9388bde39888c (patch) | |
| tree | 6007f2d7c68c0e52c2ca1fd8955d0b646a202d3a | |
| parent | dd6fa00fa3108ffd9d9848310a51575aae85e25d (diff) | |
| download | emacs-3d0e0d9e77ac59725cffe89fdef9388bde39888c.tar.gz | |
Make etags-list-tags work with Exuberant ctags
* lisp/progmodes/etags.el (etags-list-tags): Make the function
work with Exuberant ctags (bug#23400).
| -rw-r--r-- | lisp/progmodes/etags.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index edadbbdafc1..2c5c36504a9 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1424,6 +1424,10 @@ hits the start of file." (goto-func goto-tag-location-function) tag tag-info pt) (forward-line 1) + ;; Exuberant ctags add a line starting with the DEL character; + ;; skip past it. + (when (looking-at "\177") + (forward-line 1)) (while (not (or (eobp) (looking-at "\f"))) ;; We used to use explicit tags when available, but the current goto-func ;; can only handle implicit tags. |