[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search 7c42a31 036/332: el-search--read-pattern: fix
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search 7c42a31 036/332: el-search--read-pattern: fix default(s) |
Date: |
Tue, 1 Dec 2020 15:48:06 -0500 (EST) |
branch: externals/el-search
commit 7c42a3151c658a29b341b768d6bf290b30c535c0
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
el-search--read-pattern: fix default(s)
---
el-search.el | 16 +++++++++++-----
1 file changed, 11 insertions(+), 5 deletions(-)
diff --git a/el-search.el b/el-search.el
index e2f1b5a..13bfdfa 100644
--- a/el-search.el
+++ b/el-search.el
@@ -236,11 +236,17 @@ prompt to refer to the value of the currently tested
expression."
(or hist 'read-expression-history) default)))
(defun el-search--read-pattern (prompt &optional default read)
- (el-search-read-expression
- prompt el-search--initial-mb-contents 'el-search-history
- (or default (when-let ((this-sexp (sexp-at-point)))
- (concat "'" (el-search--print this-sexp))))
- read))
+ (let ((this-sexp (sexp-at-point)))
+ (minibuffer-with-setup-hook
+ (lambda ()
+ (when this-sexp
+ (let ((more-defaults (list (concat "'" (el-search--print
this-sexp)))))
+ (setq-local minibuffer-default-add-function
+ (lambda () (if (listp minibuffer-default)
+ (append minibuffer-default more-defaults)
+ (cons minibuffer-default more-defaults)))))))
+ (el-search-read-expression
+ prompt el-search--initial-mb-contents 'el-search-history default
read))))
(defun el-search--end-of-sexp ()
;;Point must be at sexp beginning
- [elpa] externals/el-search 2f48cd0 024/332: call syntax functions less often for better efficiency, (continued)
- [elpa] externals/el-search 2f48cd0 024/332: call syntax functions less often for better efficiency, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search c7af755 014/332: rename a function, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 8fc7ae2 015/332: el-search: some comment changes, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search b00ca48 018/332: rename a function, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 29ec302 012/332: avoid looking-back in el-search--goto-next-sexp, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e42804b 028/332: change a TODO entry; no code change, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search c1cfbc6 030/332: rename a local variable, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search fc6eca5 016/332: fix a condition in el-search--do-subsexps, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 632310e 021/332: rename a function, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 74015c1 023/332: whitespace clean up, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 7c42a31 036/332: el-search--read-pattern: fix default(s),
Stefan Monnier <=
- [elpa] externals/el-search f54c5f1 037/332: spelling fixes, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 192316b 006/332: el-search: fix two typos, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 92538ed 007/332: el-search: remove redundant package dependency on cl-lib, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 9ab546b 017/332: drop el-search-expression-contains-match-p, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 1694128 029/332: some doc tweaks, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 7886e33 031/332: fix el-search--repair-replacement-layout: don't move when replacing, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 672def6 034/332: fix whitespace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search daa7f92 039/332: improve docs; new: el-search-defpattern; add some pattern types, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e14236a 038/332: fix whitespace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 00d6af1 040/332: remove search wrapping functionality, Stefan Monnier, 2020/12/01