[elpa] master 35453e0 015/271: Only color changed regions.

[Jackson Ray Hamilton]

branch: master
commit 35453e02694a9487b9bc2b17a5dd8224be85c577
Author: Jackson Ray Hamilton <address@hidden>
Commit: Jackson Ray Hamilton <address@hidden>

    Only color changed regions.
---
 context-coloring.el |   14 ++++++++------
 1 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/context-coloring.el b/context-coloring.el
index 3d88661..b2daac6 100644
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -99,10 +99,12 @@ Return the name of the temporary file."
                    (json-read-from-string json))))
     (with-silent-modifications
       (dolist (token tokens)
-        (let ((start (cdr (assoc 's token)))
-              (end (cdr (assoc 'e token)))
+        (let ((s (cdr (assoc 's token)))
+              (e (cdr (assoc 'e token)))
               (face (context-coloring-level-face (cdr (assoc 'l token)))))
-          (add-text-properties start end `(font-lock-face ,face rear-nonsticky 
t)))))
+          (when (and (>= s start)
+                     (<= e end))
+            (add-text-properties s e `(font-lock-face ,face rear-nonsticky 
t))))))
     (delete-file temp-file)))
 
 ;;; Minor mode:
@@ -118,14 +120,14 @@ Return the name of the temporary file."
       (progn
         (setq jit-lock-stealth-time nil)
         (setq jit-lock-chunk-size 500)
-        (setq jit-lock-contextually `syntax-driven)
+        ;;(setq jit-lock-contextually `syntax-driven)
         (jit-lock-unregister 'context-coloring-fontify-region)
         (jit-lock-register 'font-lock-fontify-region))
     (setq jit-lock-stealth-time 1)
     (setq jit-lock-chunk-size 536870911)
-    (setq jit-lock-contextually nil)
+    ;;(setq jit-lock-contextually nil)
     (jit-lock-unregister 'font-lock-fontify-region)
-    (jit-lock-register 'context-coloring-fontify-region)))
+    (jit-lock-register 'context-coloring-fontify-region t)))
 
 ;;;###autoload
 (defun context-coloring-mode-enable ()