branch: master
commit 58679af5073d5ab4d31de00faf7c285a19881d15
Author: Michael Heerdegen <michael_heerde...@web.de>
Commit: Michael Heerdegen <michael_heerde...@web.de>
[el-search] Also overwrite replaced matches automatically
* packages/el-search/el-search.el
(el-search--search-and-replace-pattern): Automatically replace a match
after editing it with e or E even if it had been replaced with the
original replacement before.
---
packages/el-search/el-search.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 8209cd6..c36f852 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -4722,9 +4722,11 @@ Switch to driving search. Useful to reposition search
head.")))))))))
(progn
(funcall replace-or-restore)
(undo-boundary))
- (el-search--message-no-log
- "Already replaced this match - hit
r r to update")
- (sit-for 2))))
+ ;; (el-search--message-no-log
+ ;; "Already replaced this match -
hit r r to update")
+ ;; (sit-for 2)
+ (funcall replace-or-restore)
+ (funcall replace-or-restore))))
nil)))
(unwind-protect
(while (not (pcase (funcall query)
