diff options
| author | Roland McGrath <roland@gnu.org> | 1994-03-08 05:58:50 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1994-03-08 05:58:50 +0000 |
| commit | b7277ac618a78b39ad5b28a20464b3dc64217ad0 (patch) | |
| tree | c260b4f57c09fd0b9e27be894bc1075e2c75b314 | |
| parent | e1dec509bd44a36813ab1b22d9f80a4dfa7606e7 (diff) | |
| download | emacs-b7277ac618a78b39ad5b28a20464b3dc64217ad0.tar.gz | |
(etags-list-tags): Check for explicit tag names.
| -rw-r--r-- | lisp/progmodes/etags.el | 12 |
1 files 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)) |