[Emacs-diffs] /srv/bzr/emacs/trunk r101136: * lisp/simple.el (blink-matching-open): Obey forward-sexp-function.

[Stefan Monnier]

------------------------------------------------------------
revno: 101136
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2010-08-19 11:37:40 +0200
message:
  * lisp/simple.el (blink-matching-open): Obey forward-sexp-function.
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-08-18 23:25:36 +0000
+++ b/lisp/ChangeLog    2010-08-19 09:37:40 +0000
@@ -1,3 +1,7 @@
+2010-08-19  Stefan Monnier  <address@hidden>
+
+       * simple.el (blink-matching-open): Obey forward-sexp-function.
+
 2010-08-18  Stefan Monnier  <address@hidden>
 
        * simple.el (prog-mode-map): New var.

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2010-08-18 23:25:36 +0000
+++ b/lisp/simple.el    2010-08-19 09:37:40 +0000
@@ -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