summaryrefslogtreecommitdiff
path: root/lisp/replace.el
diff options
context:
space:
mode:
authorJuri Linkov <juri@jurta.org>2012-03-11 12:27:53 +0200
committerJuri Linkov <juri@jurta.org>2012-03-11 12:27:53 +0200
commit300e8fa5624c0670553c1215409c9d31075901d1 (patch)
tree65de08d39d9047677f64d01664ab9845166d24d9 /lisp/replace.el
parent179f69112df62a6ed2aeefb53d900c4dc9cd0e81 (diff)
downloademacs-300e8fa5624c0670553c1215409c9d31075901d1.tar.gz
* lisp/replace.el (replace-highlight): Set isearch-word to nil unconditionally.
Fixes: debbugs:10887
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."
(if query-replace-lazy-highlight
(let ((isearch-string string)
(isearch-regexp regexp)
+ ;; Set isearch-word to nil because word-replace is regexp-based,
+ ;; so `isearch-search-fun' should not use `word-search-forward'.
+ (isearch-word nil)
(search-whitespace-regexp nil)
(isearch-case-fold-search case-fold)
(isearch-forward t)
(isearch-error nil))
- ;; 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 ()