Mercurial > emacs

changeset 8082:215cfbab6d72

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tag-exact-match-p): Fix typo in last change.
author Roland McGrath <roland@gnu.org>
date Tue, 28 Jun 1994 20:24:38 +0000
parents 6099d3d43685
children dc62b2daf48e
files lisp/progmodes/etags.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/etags.el	Tue Jun 28 20:21:43 1994 +0000
+++ b/lisp/progmodes/etags.el	Tue Jun 28 20:24:38 1994 +0000
@@ -1150,7 +1150,7 @@
 (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.