diff options
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 3 |
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." | |||
| 1980 | (isearch-regexp regexp) | 1980 | (isearch-regexp regexp) |
| 1981 | (search-whitespace-regexp nil) | 1981 | (search-whitespace-regexp nil) |
| 1982 | (isearch-case-fold-search case-fold)) | 1982 | (isearch-case-fold-search case-fold)) |
| 1983 | ;; Set isearch-word to nil because word-replace is regexp-based, | ||
| 1984 | ;; so `isearch-search-fun' should not use `word-search-forward'. | ||
| 1985 | (if (and isearch-word isearch-regexp) (setq isearch-word nil)) | ||
| 1983 | (isearch-lazy-highlight-new-loop range-beg range-end)))) | 1986 | (isearch-lazy-highlight-new-loop range-beg range-end)))) |
| 1984 | 1987 | ||
| 1985 | (defun replace-dehighlight () | 1988 | (defun replace-dehighlight () |