* lisp/emacs-lisp/smie.el (smie--matching-block-data): Invalidate the

cache also after commands that modify the buffer but don't move
point.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1a312606ee04ed3c8fc1b91f80cbab25badac19f..362447e651c084be266c17e74c16cb6f4c2c17bc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-10-11  Dmitry Gutov  <dgutov@yandex.ru>
+
+       * emacs-lisp/smie.el (smie--matching-block-data): Invalidate the
+       cache also after commands that modify the buffer but don't move
+       point.
+
 2013-10-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * env.el (substitute-env-in-file-name): New function.

diff --git a/lisp/emacs-lisp/smie.el b/lisp/emacs-lisp/smie.el
index 32dcb2ed7443fe50f0eeb8f85a118938b5ab1ced..ebb82f4bf54a44ba7e03c0fd51db85b73aae509b 100644 (file)
--- a/lisp/emacs-lisp/smie.el
+++ b/lisp/emacs-lisp/smie.el
@@ -1062,10 +1062,12 @@ OPENER is non-nil if TOKEN is an opener and nil if it's a closer."
 (defun smie--matching-block-data (orig &rest args)
   "A function suitable for `show-paren-data-function' (which see)."
   (if (or (null smie-closer-alist)
-          (eq (point) (car smie--matching-block-data-cache)))
+          (equal (cons (point) (buffer-chars-modified-tick))
+                 (car smie--matching-block-data-cache)))
       (or (cdr smie--matching-block-data-cache)
           (apply orig args))
-    (setq smie--matching-block-data-cache (list (point)))
+    (setq smie--matching-block-data-cache
+          (list (cons (point) (buffer-chars-modified-tick))))
     (unless (nth 8 (syntax-ppss))
       (condition-case nil
           (let ((here (smie--opener/closer-at-point)))
@@ -1108,7 +1110,7 @@ OPENER is non-nil if TOKEN is an opener and nil if it's a closer."
                               (nth 1 there) (nth 2 there)
                               (not (nth 0 there)))))))
         (scan-error nil))
-      (goto-char (car smie--matching-block-data-cache)))
+      (goto-char (caar smie--matching-block-data-cache)))
     (apply #'smie--matching-block-data orig args)))
 
 ;;; The indentation engine.