Commit b7277ac6 authored by Roland McGrath's avatar Roland McGrath

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

parent e1dec509
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment