diff options
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 6 |
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 () |