[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 0b9fe9c 23/24: Set initial input for replace when coming f
From: |
Michael Heerdegen |
Subject: |
[elpa] master 0b9fe9c 23/24: Set initial input for replace when coming from el-search-pattern |
Date: |
Thu, 19 May 2016 20:46:38 +0000 (UTC) |
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)
- [elpa] master updated (24ce066 -> c835174), Michael Heerdegen, 2016/05/19
- [elpa] master f9980f6 05/24: Replacing: make C-g an alternative key for quitting, Michael Heerdegen, 2016/05/19
- [elpa] master f178717 12/24: Clarify the operation scope of replacing, Michael Heerdegen, 2016/05/19
- [elpa] master 91192f5 10/24: Add patterns for character properties, Michael Heerdegen, 2016/05/19
- [elpa] master 246e1ff 17/24: Small fix in el-search--setup-minibuffer, Michael Heerdegen, 2016/05/19
- [elpa] master 098582b 20/24: Reduce duration of a `sit-for', Michael Heerdegen, 2016/05/19
- [elpa] master 01e5bcd 22/24: Clean up el-search-read-expression-map; add some doc, Michael Heerdegen, 2016/05/19
- [elpa] master 0b9fe9c 23/24: Set initial input for replace when coming from el-search-pattern,
Michael Heerdegen <=
- [elpa] master c0d9ca7 14/24: Make el-search-pattern accept an optional NO-ERROR arg, Michael Heerdegen, 2016/05/19
- [elpa] master 41fc28b 01/24: New user option: el-search-use-sloppy-strings, Michael Heerdegen, 2016/05/19
- [elpa] master 149acb9 07/24: Improve documentation and argument names of el-search-query-replace, Michael Heerdegen, 2016/05/19
- [elpa] master 3d0a12e 13/24: Fix el-search--ensure-sexp-start error at bob, Michael Heerdegen, 2016/05/19
- [elpa] master 03dd4e7 06/24: Comment and whitespace changes only, Michael Heerdegen, 2016/05/19
- [elpa] master b885ef1 03/24: el-search--check-pattern-args: make arg TYPE a string, Michael Heerdegen, 2016/05/19
- [elpa] master 3d72d1d 11/24: Address compiler warnings, Michael Heerdegen, 2016/05/19
- [elpa] master 536fab6 15/24: Give el-search--s a more meaningful name, Michael Heerdegen, 2016/05/19
- [elpa] master 4b11cb8 09/24: Rename two functions, Michael Heerdegen, 2016/05/19
- [elpa] master 8d7b29c 21/24: Make sure not to lose the minibuffer-prompt face, Michael Heerdegen, 2016/05/19