[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 97927cc: [el-search] Minor fix in el-search-query-replace-
From: |
Michael Heerdegen |
Subject: |
[elpa] master 97927cc: [el-search] Minor fix in el-search-query-replace--read-args |
Date: |
Thu, 25 Apr 2019 05:27:28 -0400 (EDT) |
branch: master
commit 97927cc51fe0a987275c3d1291365f758faaa0dc
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
[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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 97927cc: [el-search] Minor fix in el-search-query-replace--read-args,
Michael Heerdegen <=