Mercurial > emacs

changeset 109879:c39af0d0a834

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/simple.el (blink-matching-open): Obey forward-sexp-function.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 19 Aug 2010 11:37:40 +0200
parents 8e87a11732d4
children 22ddbf1e2954
files lisp/ChangeLog lisp/simple.el
diffstat 2 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Aug 19 09:35:40 2010 +0200
+++ b/lisp/ChangeLog	Thu Aug 19 11:37:40 2010 +0200
@@ -1,3 +1,7 @@
+2010-08-19  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* simple.el (blink-matching-open): Obey forward-sexp-function.
+
 2010-08-18  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* simple.el (prog-mode-map): New var.
--- a/lisp/simple.el	Thu Aug 19 09:35:40 2010 +0200
+++ b/lisp/simple.el	Thu Aug 19 11:37:40 2010 +0200
@@ -5495,7 +5495,9 @@
                        (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