[Emacs-diffs] Changes to emacs/lisp/replace.el

[Juri Linkov]

Index: emacs/lisp/replace.el
diff -c emacs/lisp/replace.el:1.197 emacs/lisp/replace.el:1.198
*** emacs/lisp/replace.el:1.197 Thu Dec 16 13:16:30 2004
--- emacs/lisp/replace.el       Fri Dec 17 16:57:43 2004
***************
*** 799,807 ****
        (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
--- 799,807 ----
        (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
***************
*** 1008,1016 ****
                            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
--- 1008,1016 ----
                            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