[elpa] externals/embark 2a89517044 2/3: Set default-directory for non-interactive actions (fix #616)

[ELPA Syncer]

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

    Set default-directory for non-interactive actions (fix #616)
---
 embark.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/embark.el b/embark.el
index 2f08fd7863..7eaf736b5c 100644
--- a/embark.el
+++ b/embark.el
@@ -1958,6 +1958,7 @@ minibuffer before executing the action."
                       (when dedicate (set-window-dedicated-p dedicate nil)))
                     (unless (eq final-window action-window)
                       (select-window final-window))))
+              ;; TODO uniformize the command and non-interactive cases?
               (let ((argument
                      (if multi
                          (or (plist-get target :candidates) ; embark-act-all
@@ -1968,7 +1969,8 @@ minibuffer before executing the action."
                     (embark--run-action-hooks embark-pre-action-hooks
                                               action target quit)
                     (unwind-protect
-                        (let ((current-prefix-arg prefix))
+                        (let ((current-prefix-arg prefix)
+                              (default-directory directory))
                           (funcall action argument))
                       (embark--run-action-hooks embark-post-action-hooks
                                                 action target quit))))))))