# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1132758318 0
# Node ID e2a1dbb7d8f3ce7c8d2907781759541bf850f55a
# Parent  0f5d079988035d53fd38bf38b0cfd9efc6ddfffe
(blink-matching-open): Fix off-by-one in last change.

diff -r 0f5d07998803 -r e2a1dbb7d8f3 lisp/simple.el
--- a/lisp/simple.el	Wed Nov 23 07:20:09 2005 +0000
+++ b/lisp/simple.el	Wed Nov 23 15:05:18 2005 +0000
@@ -4320,7 +4320,7 @@
                    ;; 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)