branch: externals/embark
commit e0057f6a6621b24e0ba4c167b683a84039c6f084
Author: Omar Antolín <omar.anto...@gmail.com>
Commit: Omar Antolín <omar.anto...@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
