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

b7277ac6 · Roland McGrath · e1dec509 · b7277ac6
Commit b7277ac6 authored Mar 08, 1994 by Roland McGrath
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 3 deletions

lisp/progmodes/etags.el lisp/progmodes/etags.el +9 -3

No files found.
--- 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))