comparison lisp/replace.el @ 59029:8c7551156063

(occur-accumulate-lines, occur-engine): Make forcing deferred font-lock fontification jit-specific.

59028:4b8110af6bbe

			  (eobp)
			(bobp))))
	(setq count (+ count (if forwardp -1 1)))
	(setq beg (line-beginning-position)
	      end (line-end-position))
	(if (and keep-props font-lock-mode
		 (text-property-not-all beg end 'fontified t))
	    (font-lock-fontify-region beg end))
	(push
	 (funcall (if keep-props
		      #'buffer-substring
		    #'buffer-substring-no-properties)
		  beg end)

		      (goto-char matchbeg)
		      (setq begpt (line-beginning-position)
			    endpt (line-end-position)))
		    (setq marker (make-marker))
		    (set-marker marker matchbeg)
		    (if (and keep-props font-lock-mode
			     (text-property-not-all begpt endpt 'fontified t))
			(font-lock-fontify-region begpt endpt))
		    (setq curstring (buffer-substring begpt endpt))
		    ;; Depropertize the string, and maybe
		    ;; highlight the matches
		    (let ((len (length curstring))
			  (start 0))

59029:8c7551156063

			  (eobp)
			(bobp))))
	(setq count (+ count (if forwardp -1 1)))
	(setq beg (line-beginning-position)
	      end (line-end-position))
	(if (and keep-props (boundp 'jit-lock-mode) jit-lock-mode
		 (text-property-not-all beg end 'fontified t))
	    (jit-lock-fontify-now beg end))
	(push
	 (funcall (if keep-props
		      #'buffer-substring
		    #'buffer-substring-no-properties)
		  beg end)

		      (goto-char matchbeg)
		      (setq begpt (line-beginning-position)
			    endpt (line-end-position)))
		    (setq marker (make-marker))
		    (set-marker marker matchbeg)
		    (if (and keep-props (boundp 'jit-lock-mode) jit-lock-mode
			     (text-property-not-all begpt endpt 'fontified t))
			(jit-lock-fontify-now begpt endpt))
		    (setq curstring (buffer-substring begpt endpt))
		    ;; Depropertize the string, and maybe
		    ;; highlight the matches
		    (let ((len (length curstring))
			  (start 0))