branch: master
commit 97927cc51fe0a987275c3d1291365f758faaa0dc
Author: Michael Heerdegen <michael_heerde...@web.de>
Commit: Michael Heerdegen <michael_heerde...@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.
---
packages/el-search/el-search.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 36a7936..b70c79b 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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))
