# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 834243861 0
# Node ID 6243be11f0e3f9c1fd6ae7af417117aebd971a1b
# Parent  832e49a9a8ea4014b24279a21191b03da6dcfeaf
(etags-list-tags): When there is an explicit tag name, skip the \177 before
it.

diff -r 832e49a9a8ea -r 6243be11f0e3 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Sat Jun 08 01:25:20 1996 +0000
+++ b/lisp/progmodes/etags.el	Sat Jun 08 14:24:21 1996 +0000
@@ -1132,7 +1132,7 @@
 					  (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)))