# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1103302663 0
# Node ID 8c75511560637bc7dda8cbab639fd3a5d0756723
# Parent  4b8110af6bbe904b7053b4fa0372de9b6ce8d452
(occur-accumulate-lines, occur-engine):
Make forcing deferred font-lock fontification jit-specific.

diff -r 4b8110af6bbe -r 8c7551156063 lisp/replace.el
--- a/lisp/replace.el	Fri Dec 17 15:20:06 2004 +0000
+++ b/lisp/replace.el	Fri Dec 17 16:57:43 2004 +0000
@@ -799,9 +799,9 @@
 	(setq count (+ count (if forwardp -1 1)))
 	(setq beg (line-beginning-position)
 	      end (line-end-position))
-	(if (and keep-props font-lock-mode
+	(if (and keep-props (boundp 'jit-lock-mode) jit-lock-mode
 		 (text-property-not-all beg end 'fontified t))
-	    (font-lock-fontify-region beg end))
+	    (jit-lock-fontify-now beg end))
 	(push
 	 (funcall (if keep-props
 		      #'buffer-substring
@@ -1008,9 +1008,9 @@
 			    endpt (line-end-position)))
 		    (setq marker (make-marker))
 		    (set-marker marker matchbeg)
-		    (if (and keep-props font-lock-mode
+		    (if (and keep-props (boundp 'jit-lock-mode) jit-lock-mode
 			     (text-property-not-all begpt endpt 'fontified t))
-			(font-lock-fontify-region begpt endpt))
+			(jit-lock-fontify-now begpt endpt))
 		    (setq curstring (buffer-substring begpt endpt))
 		    ;; Depropertize the string, and maybe
 		    ;; highlight the matches