[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/jit-lock.el,v
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/jit-lock.el,v |
Date: |
Thu, 14 Sep 2006 11:08:50 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Kim F. Storm <kfstorm> 06/09/14 11:08:50
Index: jit-lock.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/jit-lock.el,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -b -r1.55 -r1.56
--- jit-lock.el 24 Aug 2006 23:40:00 -0000 1.55
+++ jit-lock.el 14 Sep 2006 11:08:50 -0000 1.56
@@ -397,19 +397,19 @@
;; 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.
- [Emacs-diffs] Changes to emacs/lisp/jit-lock.el,v,
Kim F. Storm <=