[elpa] externals/embark e0057f6: Add keymap prompter support for C-u C-u, C-u C-u C-u, C-u 3 1 C-u, etc.

[ELPA Syncer]

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

    Add keymap prompter support for C-u C-u, C-u C-u C-u, C-u 3 1 C-u, etc.
---
 embark.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/embark.el b/embark.el
index f906dc2..4c87656 100644
--- a/embark.el
+++ b/embark.el
@@ -1025,11 +1025,14 @@ UPDATE is the indicator update function."
                                             'visible)))
            (quit-window 'kill-buffer win))
          (embark-completing-read-prompter prefix-map update)))
-      ((or 'universal-argument 'negative-argument 'digit-argument)
+      ((or 'universal-argument 'universal-argument-more
+           'negative-argument 'digit-argument)
        ;; prevent `digit-argument' from modifying the overriding map
        (let ((overriding-terminal-local-map overriding-terminal-local-map))
          (command-execute cmd))
-       (embark-keymap-prompter keymap update))
+       (embark-keymap-prompter
+        (make-composed-keymap universal-argument-map keymap)
+        update))
       ((or 'minibuffer-keyboard-quit 'abort-recursive-edit 'abort-minibuffers)
        nil)
       ((guard (lookup-key keymap keys))  ; if directly bound, then obey