changeset 15360:6243be11f0e3

(etags-list-tags): When there is an explicit tag name, skip the \177 before it.
author Roland McGrath <roland@gnu.org>
date Sat, 08 Jun 1996 14:24:21 +0000
parents 832e49a9a8ea
children c1ba0a32590d
files lisp/progmodes/etags.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))