# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 763106330 0
# Node ID c05d1d7bc400f441712225a31eac892e3bad2c49
# Parent  3ad3a0150b6dc8f42232c33b8cc4b25d8640967b
(etags-list-tags): Check for explicit tag names.

diff -r 3ad3a0150b6d -r c05d1d7bc400 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Tue Mar 08 05:49:24 1994 +0000
+++ b/lisp/progmodes/etags.el	Tue Mar 08 05:58:50 1994 +0000
@@ -1020,9 +1020,15 @@
       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))