* replace.el (replace-highlight): Fix lazy-highlighting

for `M-s w str M-% str RET'.

1 files changed, 3 insertions, 0 deletions

diff --git a/lisp/replace.el b/lisp/replace.el
index 487974073aa..d73692ccc20 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1980,6 +1980,9 @@ make, or the user didn't cancel the call."
             (isearch-regexp regexp)
             (search-whitespace-regexp nil)
             (isearch-case-fold-search case-fold))
+        ;; Set isearch-word to nil because word-replace is regexp-based,
+        ;; so `isearch-search-fun' should not use `word-search-forward'.
+        (if (and isearch-word isearch-regexp) (setq isearch-word nil))
         (isearch-lazy-highlight-new-loop range-beg range-end))))
 
 (defun replace-dehighlight ()