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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 418f28e1bd6f74479b3668071e3805c06a3aa99e..8d21025acd2326865da94e37e89614054c186bf0 100644 (file)
--- 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 a7551f4430cc1e49cba255ce8d72391b69d97a19..9b42c75699142344a0b0836a9f44b5593df76791 100644 (file)
--- 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)