* lisp/replace.el (replace-search): Fix regexp case (bug#20901)

diff --git a/lisp/replace.el b/lisp/replace.el
index 65a2b41f1eaed2b6348a58e0cd93416f5125ea29..41debdd9cf7c45b0fd4682c8a2cd9c049faf9c7a 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -2014,6 +2014,7 @@ It is called with three arguments, as if it were
   (let* ((isearch-regexp regexp-flag)
         (isearch-word (or delimited-flag
                            (and replace-character-fold
+                                (not regexp-flag)
                                 #'character-fold-to-regexp)))
         (isearch-lax-whitespace
          replace-lax-whitespace)