[elpa] externals/el-search a5dd88c 322/332: [el-search] Minor fix in el-search-query-replace--read-args

[Stefan Monnier]

branch: externals/el-search
commit a5dd88c2e73d4f37e22925bf445102f92960360a
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    [el-search] Minor fix in el-search-query-replace--read-args
    
    * packages/el-search/el-search.el
    (el-search-query-replace--read-args): Fix the case when we come from a
    resumed older search: in this case (car el-search-pattern-history)
    doesn't reflect the correct pattern.  Use 'el-search--current-pattern'
    instead.
---
 el-search.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/el-search.el b/el-search.el
index 36a7936..b70c79b 100644
--- a/el-search.el
+++ b/el-search.el
@@ -4894,10 +4894,10 @@ Don't save this buffer and all following buffers; don't 
ask again"))))
                     (or el-search--initial-mb-contents
                         (and (or (eq last-command 'el-search-pattern)
                                  (el-search--pending-search-p))
-                             (if (equal (el-search-read (car 
el-search-pattern-history))
+                             (if (equal (el-search--current-pattern)
                                         (el-search-read (car 
el-search-query-replace-history)))
                                  (car el-search-query-replace-history)
-                               (car el-search-pattern-history))))))
+                               (el-search--pp-to-string 
(el-search--current-pattern)))))))
                ;; We only want error hints so we don't bind 
el-search--display-match-count-in-prompt
                (unwind-protect (minibuffer-with-setup-hook 
#'el-search-read-pattern-setup-mb
                                  (let 
((el-search--reading-input-for-query-replace t))