2006-09-26 Stefan Monnier <monnier@iro.umontreal.ca>
+ * jit-lock.el (jit-lock-force-redisplay): Rename from
+ jit-lock-fontify-again, and undo the mistaken change I've just done.
+
* jit-lock.el (jit-lock-fontify-now): Don't fontify the empty text.
(jit-lock-fontify-again): Don't refontify text that's not displayed.
;; eagerly extend the refontified region with
;; jit-lock-after-change-extend-region-functions.
(when (< start orig-start)
- (run-with-timer 0 nil 'jit-lock-fontify-again
+ (run-with-timer 0 nil 'jit-lock-force-redisplay
(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."
- ;; Don't bother refontifying text that's not even displayed.
- (when (setq start (text-property-not-all start end 'fontified nil buf))
- (with-current-buffer buf
- (with-buffer-prepared-for-jit-lock
- (put-text-property start end 'fontified nil)))))
+(defun jit-lock-force-redisplay (buf start end)
+ "Force the display engine to re-render buffer BUF from START to END."
+ (with-current-buffer buf
+ (with-buffer-prepared-for-jit-lock
+ ;; Don't cause refontification (it's already been done), but just do
+ ;; some random buffer change, so as to force redisplay.
+ (put-text-property start end 'fontified t)))))
\f