From: Robert Weiner <rswgnu@gmail.com>
Date: Wed, 19 Aug 2020 13:28:32 +0000 (+0200)
Subject: Make etags-list-tags work with Exuberant ctags
X-Git-Tag: emacs-28.0.90~6506
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3d0e0d9e77ac59725cffe89fdef9388bde39888c;p=emacs.git

Make etags-list-tags work with Exuberant ctags

* lisp/progmodes/etags.el (etags-list-tags): Make the function
work with Exuberant ctags (bug#23400).
---

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.