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

2 files changed, 5 insertions, 1 deletions

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)