diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-03-20 07:52:03 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-03-20 07:52:03 +0000 |
| commit | 0902822d85217cd171e59a09ef4d507b3346db91 (patch) | |
| tree | 979d650b1a99caa12ce1f2f8dd2efceb169f28b9 /lisp/jit-lock.el | |
| parent | 95c1c9018edb9797c0f5d00574d7fc64d1d53824 (diff) | |
| download | emacs-0902822d85217cd171e59a09ef4d507b3346db91.tar.gz | |
(jit-lock-function): Check for the actual defer-timer rather than just
defer-time, in case defer-time has been changed but the timer isn't running yet.
(jit-lock-deferred-fontify): Correspondingly let-bind defer-timer.
Diffstat (limited to 'lisp/jit-lock.el')
| -rw-r--r-- | lisp/jit-lock.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el index 84e0dc0cab3..0e131b665ef 100644 --- a/lisp/jit-lock.el +++ b/lisp/jit-lock.el @@ -301,7 +301,7 @@ Only applies to the current buffer." This function is added to `fontification-functions' when `jit-lock-mode' is active." (when (and jit-lock-mode (not memory-full)) - (if (null jit-lock-defer-time) + (if (null jit-lock-defer-timer) ;; No deferral. (jit-lock-fontify-now start (+ start jit-lock-chunk-size)) ;; Record the buffer for later fontification. @@ -510,7 +510,7 @@ This functions is called after Emacs has been idle for (setq pos (next-single-property-change pos 'fontified))))))))) (setq jit-lock-defer-buffers nil) ;; Force fontification of the visible parts. - (let ((jit-lock-defer-time nil)) + (let ((jit-lock-defer-timer nil)) ;; (message "Jit-Defer Now") (sit-for 0) ;; (message "Jit-Defer Done") |