Mercurial > emacs

changeset 6245:c05d1d7bc400

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(etags-list-tags): Check for explicit tag names.
author Roland McGrath <roland@gnu.org>
date Tue, 08 Mar 1994 05:58:50 +0000
parents 3ad3a0150b6d
children 128dc040e121
files lisp/progmodes/etags.el
diffstat 1 files changed, 9 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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))