[elpa] master 0a4248b 009/271: Update chunk size.

[Jackson Ray Hamilton]

branch: master
commit 0a4248b26cf37980d0668c14abaeb586f0a870e4
Author: Jackson Ray Hamilton <address@hidden>
Commit: Jackson Ray Hamilton <address@hidden>

    Update chunk size.
---
 context-coloring.el |   15 +++++++++++----
 1 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/context-coloring.el b/context-coloring.el
index d498bbd..47952bb 100644
--- a/context-coloring.el
+++ b/context-coloring.el
@@ -94,7 +94,7 @@ Return the name of the temporary file."
 (defconst context-coloring-path
   (file-name-directory (or load-file-name buffer-file-name)))
 
-(defun context-coloring-propertize-region (start end)
+(defun context-coloring-fontify-region (start end)
   (interactive)
   (let* ((temp-file (context-coloring-save-buffer-to-temp))
          (json (shell-command-to-string
@@ -112,7 +112,8 @@ Return the name of the temporary file."
                (start (context-coloring-get-point line (- from 1)))
                (end (context-coloring-get-point line (- thru 1)))
                (face (context-coloring-depth-face level)))
-          (add-text-properties start end `(font-lock-face ,face rear-nonsticky 
t)))))))
+          (add-text-properties start end `(font-lock-face ,face rear-nonsticky 
t)))))
+    (delete-file temp-file)))
 
 ;;; Minor mode:
 
@@ -120,10 +121,16 @@ Return the name of the temporary file."
 (define-minor-mode context-coloring-mode
   "Context-based code coloring for JavaScript, inspired by Douglas Crockford."
   nil " Context" nil
+  (make-local-variable 'jit-lock-chunk-size)
+  (make-local-variable 'jit-lock-contextually)
   (if (not context-coloring-mode)
       (progn
-        (jit-lock-unregister 'context-coloring-propertize-region))
-    (jit-lock-register 'context-coloring-propertize-region)))
+        (setq jit-lock-chunk-size 500)
+        (setq jit-lock-contextually `syntax-driven)
+        (jit-lock-unregister 'context-coloring-fontify-region))
+    (setq jit-lock-chunk-size 536870911)
+    (setq jit-lock-contextually nil)
+    (jit-lock-register 'context-coloring-fontify-region)))
 
 ;;;###autoload
 (defun context-coloring-mode-enable ()