Prescribe history for read-regexp in query-replace

In the fix for bug#24580, the history argument for read-regexp was
removed erroneously; read-regexp's history argument defaults to
regexp-history, not minibuffer-history.
* lisp/replace.el (query-replace-read-from): Tell read-regexp to use
minibuffer-history.  Fixes bug#24873.

diff --git a/lisp/replace.el b/lisp/replace.el
index 4fc48d4c7a8fbcbccc480298bd2d39551b84fa78..60948efeea623b21cb6b204cf50a43a7ddeb5f29 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -198,7 +198,7 @@ wants to replace FROM with TO."
                     (setq-local text-property-default-nonsticky
                                 (cons '(separator . t) text-property-default-nonsticky)))
                 (if regexp-flag
-                    (read-regexp prompt)
+                    (read-regexp prompt nil 'minibuffer-history)
                   (read-from-minibuffer
                    prompt nil nil nil nil
                    (car (if regexp-flag regexp-search-ring search-ring)) t)))))