master 3d0e0d9: Make etags-list-tags work with Exuberant ctags

[Lars Ingebrigtsen]

branch: master
commit 3d0e0d9e77ac59725cffe89fdef9388bde39888c
Author: Robert Weiner <rswgnu@gmail.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make etags-list-tags work with Exuberant ctags
    
    * lisp/progmodes/etags.el (etags-list-tags): Make the function
    work with Exuberant ctags (bug#23400).
---
 lisp/progmodes/etags.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index edadbbd..2c5c365 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.