[elpa] master 0b9fe9c 23/24: Set initial input for replace when coming from el-search-pattern

[Michael Heerdegen]

branch: master
commit 0b9fe9c814c30b7715b55f769352e4200e3aea63
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    Set initial input for replace when coming from el-search-pattern
---
 packages/el-search/el-search.el |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 77faf7b..1f4014a 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -1117,8 +1117,12 @@ Hit any key to proceed."
 
 (defun el-search-query-replace--read-args ()
   (barf-if-buffer-read-only)
-  (let ((from-input (el-search--read-pattern "Query replace pattern: " nil nil
-                                             'el-search-query-replace-history))
+  (let ((from-input (let ((el-search--initial-mb-contents
+                           (or el-search--initial-mb-contents
+                               (and (eq last-command 'el-search-pattern)
+                                    (car el-search-history)))))
+                      (el-search--read-pattern "Query replace pattern: " nil 
nil
+                                               
'el-search-query-replace-history)))
         from to)
     (with-temp-buffer
       (emacs-lisp-mode)