[elpa] master 809d48b 020/271: Minor tweaks.

[Jackson Ray Hamilton]

branch: master
commit 809d48b47b5c86d436846bb184a5e5bd3d8cf275
Author: Jackson Ray Hamilton <address@hidden>
Commit: Jackson Ray Hamilton <address@hidden>

    Minor tweaks.
---
 context-coloring.el |   12 +++++-------
 1 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/context-coloring.el b/context-coloring.el
index feba386..03b43b6 100644
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -135,13 +135,10 @@ calling FUNCTION with the parsed list of tokens."
   (interactive)
   (context-coloring-tokenize 'context-coloring-apply-tokens))
 
-(defun context-coloring-idle-timer ()
+(defun context-coloring-colorize-if-current ()
   (when (eq context-coloring-buffer (window-buffer (selected-window)))
     (context-coloring-colorize-buffer)))
 
-(defun context-coloring-after-change (start end length)
-  (setq context-coloring-changed t))
-
 
 ;;; Minor mode
 
@@ -151,7 +148,8 @@ calling FUNCTION with the parsed list of tokens."
   nil " Context" nil
   (if (not context-coloring-mode)
       (progn
-        (cancel-timer context-coloring-colorize-buffer-timer))
+        (when (boundp 'context-coloring-colorize-idle-timer)
+         (cancel-timer context-coloring-colorize-idle-timer)))
 
     ;; Colorize once initially. Why this doesn't work, I cannot say.
     ;; (context-coloring-colorize-buffer)
@@ -160,8 +158,8 @@ calling FUNCTION with the parsed list of tokens."
     (set (make-local-variable 'context-coloring-buffer) (current-buffer))
 
     ;; Only recolor idly.
-    (set (make-local-variable 'context-coloring-colorize-buffer-timer)
-         (run-with-idle-timer 1 t 'context-coloring-idle-timer))))
+    (set (make-local-variable 'context-coloring-colorize-idle-timer)
+         (run-with-idle-timer 1 t 'context-coloring-colorize-if-current))))
 
 ;;;###autoload
 (defun context-coloring-mode-enable ()