comparison 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.

73134:b7b3deb46c6a

     (let ((orig-start start) next)
       (save-match-data
	 ;; 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
	   ;; Determine the end of this chunk.
	   (setq next (or (text-property-any start end 'fontified t)
			  end))

	   ;; Decide which range of text should be fontified.

	   ;; 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.

73135:365ddb09e339

     (let ((orig-start start) next)
       (save-match-data
	 ;; 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 (and start (< start end))
	   ;; Determine the end of this chunk.
	   (setq next (or (text-property-any start end 'fontified t)
			  end))

	   ;; Decide which range of text should be fontified.

	   ;; 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)))))



;;; Stealth fontification.