* lisp/simple.el (blink-matching-open): Obey forward-sexp-function.

4b9c0a49 · Stefan Monnier · 96fa1768 · 4b9c0a49 · 4b9c0a49
Commit 4b9c0a49 authored Aug 19, 2010 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/simple.el lisp/simple.el +3 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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
+++ 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