From: Roland McGrath <roland@gnu.org>
Date: Tue, 28 Jun 1994 20:24:38 +0000 (+0000)
Subject: (tag-exact-match-p): Fix typo in last change.
X-Git-Tag: emacs-19.34~7771
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40ce92683ca3093a4f104f95a63cb549a9e9339d;p=emacs.git

(tag-exact-match-p): Fix typo in last change.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 808918ce9cd..5f4889477f9 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1150,7 +1150,7 @@ See documentation of variable `tags-file-name'."
 (defun tag-exact-match-p (tag)
   ;; The match is really exact if there is an explicit tag name.
   (or (and (eq (char-after (point)) ?\001)
-	   (eq (char-after (- (point) (length tag)) ?\177)))
+	   (eq (char-after (- (point) (length tag) 1)) ?\177))
       ;; We are not on the explicit tag name, but perhaps it follows.
       (looking-at (concat "[^\177\n]*\177" (regexp-quote tag) "\001"))
       ;; We also call it "exact" if it is surrounded by symbol boundaries.