From: Kim F. Storm <storm@cua.dk>
Date: Thu, 14 Sep 2006 11:08:50 +0000 (+0000)
Subject: (jit-lock-fontify-again): New function.
X-Git-Tag: emacs-pretest-22.0.90~569
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a8edf31ec2558f7e9899e6089dad31df257195f;p=emacs.git

(jit-lock-fontify-again): New function.
(jit-lock-fontify-now): Use it instead of lambda form.
---

diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el
index 89959ad8525..4cbc7da4511 100644
--- a/lisp/jit-lock.el
+++ b/lisp/jit-lock.el
@@ -397,19 +397,19 @@ Defaults to the whole buffer.  END can be out of bounds."
            ;; eagerly extend the refontified region with
            ;; jit-lock-after-change-extend-region-functions.
            (when (< start orig-start)
-             (lexical-let ((start start)
-                           (orig-start orig-start)
-                           (buf (current-buffer)))
-               (run-with-timer
-                0 nil (lambda ()
-                        (with-current-buffer buf
-                          (with-buffer-prepared-for-jit-lock
-                              (put-text-property start orig-start
-                                                 'fontified t)))))))
+	     (run-with-timer 0 nil 'jit-lock-fontify-again
+			     (current-buffer) start orig-start))
 
 	   ;; Find the start of the next chunk, if any.
 	   (setq start (text-property-any next end 'fontified nil))))))))
 
+(defun jit-lock-fontify-again (buf start end)
+  "Fontify in buffer BUF from START to END."
+  (with-current-buffer buf
+    (with-buffer-prepared-for-jit-lock
+     (put-text-property start end 'fontified t))))
+
+
 
 ;;; Stealth fontification.