(1+ context-coloring-elisp-sexp-count))
(when (and (zerop (% context-coloring-elisp-sexp-count
context-coloring-elisp-sexps-per-pause))
- context-coloring-parse-interruptable-p
+ context-coloring-interruptable-p
(input-pending-p))
(throw 'interrupted t)))
(cond
;; Just colorize the changed region.
(context-coloring-changed-p
- (let* ( ;; Prevent `beginning-of-defun' from making poor assumptions.
+ (let* (;; Prevent `beginning-of-defun' from making poor assumptions.
(open-paren-in-column-0-is-defun-start nil)
;; Seek the beginning and end of the previous and next
;; offscreen defuns, so just enough is colored.
'emacs-lisp
(list :modes '(emacs-lisp-mode lisp-interaction-mode)
:colorizer #'context-coloring-elisp-colorize
- :delay 0.016 ;; Thanks to lazy colorization this can be 60 frames per second.
:setup #'context-coloring-setup-idle-change-detection
:teardown #'context-coloring-teardown-idle-change-detection)
context-coloring-dispatch-hash-table)
'eval-expression
(list :predicate #'context-coloring-eval-expression-predicate
:colorizer #'context-coloring-eval-expression-colorize
- :delay 0.016
:setup #'context-coloring-setup-idle-change-detection
:teardown #'context-coloring-teardown-idle-change-detection)
context-coloring-dispatch-hash-table)