[elpa] master df283ac 16/22: el-search--read-pattern: fix default(s)

[Michael Heerdegen]

branch: master
commit df283ac0bf6b19d7afdfa882fd3bb786b8e0012a
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    el-search--read-pattern: fix default(s)
---
 packages/el-search/el-search.el |   16 +++++++++++-----
 1 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index e2f1b5a..13bfdfa 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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