From 4b9c0a498d25344ac6da4e67375f853e438a102a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 19 Aug 2010 11:37:40 +0200 Subject: [PATCH] * lisp/simple.el (blink-matching-open): Obey forward-sexp-function. --- lisp/ChangeLog | 4 ++++ lisp/simple.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ce5baa1b1a1..0d8c1304e6c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-08-19 Stefan Monnier + + * simple.el (blink-matching-open): Obey forward-sexp-function. + 2010-08-18 Stefan Monnier * simple.el (prog-mode-map): New var. diff --git a/lisp/simple.el b/lisp/simple.el index 7c941fd63b9..b998eef88a0 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -5495,7 +5495,9 @@ it skips the contents of comments that end before point." (and parse-sexp-ignore-comments (not blink-matching-paren-dont-ignore-comments)))) (condition-case () - (scan-sexps oldpos -1) + (progn + (forward-sexp -1) + (point)) (error nil)))))) (matching-paren (and blinkpos -- 2.11.4.GIT