From: Roland McGrath <roland@gnu.org>
Date: Sat, 8 Jun 1996 14:24:21 +0000 (+0000)
Subject: (etags-list-tags): When there is an explicit tag name, skip the \177 before
X-Git-Tag: emacs-19.34~502
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da3b3a78154dd7d6e30e94f800dcd7382aa253c2;p=emacs.git

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

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)))