Mercurial > emacs
changeset 73136:db20c4c0a56f
(jit-lock-force-redisplay): Rename from jit-lock-fontify-again.
Undo the mistaken change I've just done.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 26 Sep 2006 15:42:29 +0000 |
| parents | 365ddb09e339 |
| children | b8d627e75b2d |
| files | lisp/ChangeLog lisp/jit-lock.el |
| diffstat | 2 files changed, 11 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Sep 26 15:35:34 2006 +0000 +++ b/lisp/ChangeLog Tue Sep 26 15:42:29 2006 +0000 @@ -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.
--- a/lisp/jit-lock.el Tue Sep 26 15:35:34 2006 +0000 +++ b/lisp/jit-lock.el Tue Sep 26 15:42:29 2006 +0000 @@ -397,19 +397,19 @@ ;; 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)))))