mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(jit-lock-force-redisplay): Rename from jit-lock-fontify-again.

Browse source 
Undo the mistaken change I've just done.
This commit is contained in:
Stefan Monnier 2006-09-26 15:42:29 +00:00
parent c18607470a
commit be95632401
2 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
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.

16
lisp/jit-lock.el
View file

@ -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)
(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)))))