[elpa] externals/embark 1490ac3c7c 1/2: Pass the prefix argument to each action call in embark-act-all

[ELPA Syncer]

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

    Pass the prefix argument to each action call in embark-act-all
---
 embark.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/embark.el b/embark.el
index 77bdddf713..52824eec50 100644
--- a/embark.el
+++ b/embark.el
@@ -2165,10 +2165,12 @@ ARG is the prefix argument."
                      indicators (embark--action-keymap type nil)
                      (list (list :type type :multi (length candidates))))
                     (user-error "Canceled")))
+               (prefix prefix-arg)
                (act (lambda (candidate)
                       (cl-letf (((symbol-function 'embark--restart) #'ignore)
                                 ((symbol-function 'embark--confirm) #'ignore))
-                        (embark--act action candidate))))
+                        (let ((prefix-arg prefix))
+                          (embark--act action candidate)))))
                (quit (embark--quit-p action arg)))
           (when (and (eq action (embark--default-action type))
                      (eq action embark--command))
@@ -2179,7 +2181,8 @@ ARG is the prefix argument."
                     (y-or-n-p (format "Run %s on %d %ss? "
                                       action (length candidates) type)))
             (if (memq action embark-multitarget-actions)
-                (embark--act action transformed quit)
+                (let ((prefix-arg prefix))
+                  (embark--act action transformed quit))
               (if quit
                   (embark--quit-and-run #'mapc act candidates)
                 (mapc act candidates)