[elpa] externals/embark 5b34b2b: Don't use lambda as a hook, define a function instead

[ELPA Syncer]

branch: externals/embark
commit 5b34b2b60370cea5ad9da5931856667a6fae0501
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    Don't use lambda as a hook, define a function instead
    
    The main advantage is the more specific docstring.
---
 embark.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/embark.el b/embark.el
index 3a1d918..4e0025e 100644
--- a/embark.el
+++ b/embark.el
@@ -389,7 +389,7 @@ replaced by the single `embark-allow-edit-actions' 
variable."
   '((async-shell-command embark--shell-prep)
     (shell-command embark--shell-prep)
     (pp-eval-expression embark--eval-prep)
-    (package-delete (lambda (&rest _) (minibuffer-force-complete))))
+    (package-delete embark--force-complete))
   "Alist associating commands with post-injection setup hooks.
 For commands appearing as keys in this alist, run the
 corresponding value as a setup hook after injecting the target
@@ -3304,6 +3304,10 @@ and leaves the point to the left of it."
     (insert " " (shell-quote-wildcard-pattern contents))
     (goto-char (minibuffer-prompt-end))))
 
+(defun embark--force-complete (&rest _)
+  "Select first minibuffer completion candidate matching target."
+  (minibuffer-force-complete))
+
 (defun embark--eval-prep (&rest _)
   "If target is: a variable, skip edit; a function, wrap in parens."
   (if (not (fboundp (intern-soft (minibuffer-contents))))