diff lisp/jit-lock.el @ 69599:0b906e4eb64e

(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.

--- a/lisp/jit-lock.el	Mon Mar 20 06:26:23 2006 +0000
+++ b/lisp/jit-lock.el	Mon Mar 20 07:52:03 2006 +0000
@@ -301,7 +301,7 @@
 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 @@
 		   (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")