From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 23 Nov 2005 15:05:27 +0000 (+0000)
Subject: (blink-matching-open): Fix off-by-one in last change.
X-Git-Tag: emacs-pretest-22.0.90~5706
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c03d4785841ccfddedbf59bd56c790f8c6c1e5a;p=emacs.git

(blink-matching-open): Fix off-by-one in last change.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 418f28e1bd6..8d21025acd2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-11-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* simple.el (blink-matching-open): Fix off-by-one in last change.
+
 2005-11-23  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
 	* term/mac-win.el: Don't change default directory.
diff --git a/lisp/simple.el b/lisp/simple.el
index a7551f4430c..9b42c756991 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4320,7 +4320,7 @@ If nil, search stops at the beginning of the accessible portion of the buffer."
                    ;; The cdr might hold a new paren-class info rather than
                    ;; a matching-char info, in which case the two CDRs
                    ;; should match.
-                   (eq matching-paren (cdr (syntax-after oldpos)))))
+                   (eq matching-paren (cdr (syntax-after (1- oldpos))))))
 	  (message "Mismatched parentheses"))
 	 ((not blinkpos)
 	  (if (not blink-matching-paren-distance)