Make etags-list-tags work with Exuberant ctags

* lisp/progmodes/etags.el (etags-list-tags): Make the function
work with Exuberant ctags (bug#23400).
This commit is contained in:
Robert Weiner 2020-08-19 15:28:32 +02:00 committed by Lars Ingebrigtsen
parent dd6fa00fa3
commit 3d0e0d9e77

View file

@ -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.