From b7277ac618a78b39ad5b28a20464b3dc64217ad0 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Tue, 8 Mar 1994 05:58:50 +0000 Subject: [PATCH] (etags-list-tags): Check for explicit tag names. --- lisp/progmodes/etags.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) 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)) -- 2.39.5