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.
This commit is contained in:
Mark Oteiza 2016-11-07 22:11:39 -05:00
parent 73d47d2219
commit d3e22a1210

View file

@ -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)))))