Mercurial > emacs
diff lisp/jit-lock.el @ 73135:365ddb09e339
(jit-lock-fontify-now): Don't fontify the empty text.
(jit-lock-fontify-again): Don't refontify text that's not displayed.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 26 Sep 2006 15:35:34 +0000 |
parents | 1ba9cc2a8b76 |
children | db20c4c0a56f |
line wrap: on
line diff
--- a/lisp/jit-lock.el Tue Sep 26 08:49:05 2006 +0000 +++ b/lisp/jit-lock.el Tue Sep 26 15:35:34 2006 +0000 @@ -349,7 +349,7 @@ ;; Fontify chunks beginning at START. The end of a ;; chunk is either `end', or the start of a region ;; before `end' that has already been fontified. - (while start + (while (and start (< start end)) ;; Determine the end of this chunk. (setq next (or (text-property-any start end 'fontified t) end)) @@ -405,9 +405,11 @@ (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)))) + ;; 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)))))