From 9c03d4785841ccfddedbf59bd56c790f8c6c1e5a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 23 Nov 2005 15:05:27 +0000 Subject: [PATCH] (blink-matching-open): Fix off-by-one in last change. --- lisp/ChangeLog | 4 ++++ lisp/simple.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * simple.el (blink-matching-open): Fix off-by-one in last change. + 2005-11-23 YAMAMOTO Mitsuharu * 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) -- 2.11.4.GIT