aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/replace.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/replace.el')
-rw-r--r--lisp/replace.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/replace.el b/lisp/replace.el
index 349e63d4201..9fbaa279079 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -2116,13 +2116,13 @@ make, or the user didn't cancel the call."
2116 (if query-replace-lazy-highlight 2116 (if query-replace-lazy-highlight
2117 (let ((isearch-string string) 2117 (let ((isearch-string string)
2118 (isearch-regexp regexp) 2118 (isearch-regexp regexp)
2119 ;; Set isearch-word to nil because word-replace is regexp-based,
2120 ;; so `isearch-search-fun' should not use `word-search-forward'.
2121 (isearch-word nil)
2119 (search-whitespace-regexp nil) 2122 (search-whitespace-regexp nil)
2120 (isearch-case-fold-search case-fold) 2123 (isearch-case-fold-search case-fold)
2121 (isearch-forward t) 2124 (isearch-forward t)
2122 (isearch-error nil)) 2125 (isearch-error nil))
2123 ;; Set isearch-word to nil because word-replace is regexp-based,
2124 ;; so `isearch-search-fun' should not use `word-search-forward'.
2125 (if (and isearch-word isearch-regexp) (setq isearch-word nil))
2126 (isearch-lazy-highlight-new-loop range-beg range-end)))) 2126 (isearch-lazy-highlight-new-loop range-beg range-end))))
2127 2127
2128(defun replace-dehighlight () 2128(defun replace-dehighlight ()