(etags-list-tags): When there is an explicit tag name, skip the \177 before

it.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 8954b1364b6..0afff9a9374 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1132,7 +1132,7 @@ See documentation of variable `tags-file-name'."
                                           (point)))))
         (princ (if (looking-at "[^\n]+\001")
                    ;; There is an explicit tag name; use that.
-                   (buffer-substring (point)
+                   (buffer-substring (1+ (point)) ;skip \177
                                      (progn (skip-chars-forward "^\001")
                                             (point)))
                  tag)))