* emacs-lisp/smie.el (smie-highlight-matching-block-mode): Clean

up when turned off.
(smie--highlight-matching-block-overlay): No longer buffer-local.
(smie-highlight-matching-block): Adjust.

Fixes: debbugs:14395

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c4e5390267b52fc80bbe6bd740a493fa2008de36..12ae5239f137a4e1fe228e45c356b0f89adf734e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2013-05-17  Leo Liu  <sdl.web@gmail.com>
+
+       * emacs-lisp/smie.el (smie-highlight-matching-block-mode): Clean
+       up when turned off.  (Bug#14395)
+       (smie--highlight-matching-block-overlay): No longer buffer-local.
+       (smie-highlight-matching-block): Adjust.
+
 2013-05-17  Paul Eggert  <eggert@cs.ucla.edu>
 
        Doc string fix for "nanoseconds" (Bug#14406).

diff --git a/lisp/emacs-lisp/smie.el b/lisp/emacs-lisp/smie.el
index 2113457869ecc4f27ba0872fe3dc4d09ebac923f..b08839955322fded4e9d28e7a040fde72beb3f98 100644 (file)
--- a/lisp/emacs-lisp/smie.el
+++ b/lisp/emacs-lisp/smie.el
@@ -1025,7 +1025,7 @@ This uses SMIE's tables and is expected to be placed on `post-self-insert-hook'.
   "Face used to highlight matching block."
   :group 'smie)
 
-(defvar-local smie--highlight-matching-block-overlay nil)
+(defvar smie--highlight-matching-block-overlay nil)
 (defvar-local smie--highlight-matching-block-lastpos -1)
 
 (defun smie-highlight-matching-block ()
@@ -1056,7 +1056,8 @@ This uses SMIE's tables and is expected to be placed on `post-self-insert-hook'.
                  nil))))
           (highlight
            (lambda (beg end)
-             (move-overlay smie--highlight-matching-block-overlay beg end)
+             (move-overlay smie--highlight-matching-block-overlay
+                           beg end (current-buffer))
              (overlay-put smie--highlight-matching-block-overlay
                           'face 'smie-matching-block-highlight))))
       (save-excursion
@@ -1095,10 +1096,15 @@ This uses SMIE's tables and is expected to be placed on `post-self-insert-hook'.
   (when (timerp smie--highlight-matching-block-timer)
     (cancel-timer smie--highlight-matching-block-timer))
   (setq smie--highlight-matching-block-timer nil)
-  (when smie-highlight-matching-block-mode
-    (remove-hook 'post-self-insert-hook #'smie-blink-matching-open 'local)
-    (setq smie--highlight-matching-block-timer
-          (run-with-idle-timer 0.2 t #'smie-highlight-matching-block))))
+  (if smie-highlight-matching-block-mode
+      (progn
+        (remove-hook 'post-self-insert-hook #'smie-blink-matching-open 'local)
+        (setq smie--highlight-matching-block-timer
+              (run-with-idle-timer 0.2 t #'smie-highlight-matching-block)))
+    (when smie--highlight-matching-block-overlay
+      (delete-overlay smie--highlight-matching-block-overlay)
+      (setq smie--highlight-matching-block-overlay nil))
+    (kill-local-variable 'smie--highlight-matching-block-lastpos)))
 
 ;;; The indentation engine.