From: Roland McGrath <roland@gnu.org>
Date: Tue, 8 Mar 1994 05:58:50 +0000 (+0000)
Subject: (etags-list-tags): Check for explicit tag names.
X-Git-Tag: emacs-19.34~9607
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7277ac618a78b39ad5b28a20464b3dc64217ad0;p=emacs.git

(etags-list-tags): Check for explicit tag names.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 75c949f8555..bbcf7e96828 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1020,9 +1020,15 @@ See documentation of variable `tags-file-name'."
       nil
     (forward-line 1)
     (while (not (or (eobp) (looking-at "\f")))
-      (princ (buffer-substring (point)
-			       (progn (skip-chars-forward "^\177")
-				      (point))))
+      (let ((tag (buffer-substring (point)
+				   (progn (skip-chars-forward "^\177")
+					  (point)))))
+	(princ (if (looking-at "[^\n]+\001")
+		   ;; There is an explicit tag name; use that.
+		   (buffer-substring (point)
+				     (progn (skip-chars-forward "^\001")
+					    (point)))
+		 tag)))
       (terpri)
       (forward-line 1))
     t))