[elpa] externals/embark d06e5c58a6: Have embark--ignore-target restore original minibuffer input

[ELPA Syncer]

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

    Have embark--ignore-target restore original minibuffer input
    
    It's kind of shocking this bug was undiscovered for so long, I guess
    it's because the initial input is almost always empty.
---
 embark.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/embark.el b/embark.el
index 7fc3e8d830..d869a70779 100644
--- a/embark.el
+++ b/embark.el
@@ -1784,8 +1784,12 @@ minibuffer before executing the action."
            (action-window (embark--target-window t))
            (inject
             (lambda ()
-              (delete-minibuffer-contents)
-              (insert (substring-no-properties (plist-get target :target)))
+              (let ((contents (minibuffer-contents)))
+                (delete-minibuffer-contents)
+                (insert
+                 (propertize
+                  (substring-no-properties (plist-get target :target))
+                  'embark--initial-input contents)))
               (if (memq 'ivy--queue-exhibit post-command-hook)
                   ;; Ivy has special needs: (1) for file names
                   ;; ivy-immediate-done is not equivalent to
@@ -3785,7 +3789,10 @@ The advice is self-removing so it only affects ACTION 
once."
 
 (defun embark--ignore-target (&rest _)
   "Ignore the target."
-  (delete-minibuffer-contents)
+  (let ((contents
+         (get-text-property (minibuffer-prompt-end) 'embark--initial-input)))
+    (delete-minibuffer-contents)
+    (insert contents))
   (embark--allow-edit))
 
 (autoload 'xref-push-marker-stack "xref")