changeset 67092:e2a1dbb7d8f3

(blink-matching-open): Fix off-by-one in last change.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 23 Nov 2005 15:05:18 +0000
parents 0f5d07998803
children f6b937860742
files lisp/simple.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)