Fix wrong-number-of-args error from cmd!! macro
This commit is contained in:
parent
7a276dbf6b
commit
2441d28ad1
1 changed files with 4 additions and 1 deletions
|
@ -258,7 +258,10 @@ aliases."
|
||||||
(declare (doc-string 1) (pure t) (side-effect-free t))
|
(declare (doc-string 1) (pure t) (side-effect-free t))
|
||||||
`(lambda (arg &rest _) (interactive "P")
|
`(lambda (arg &rest _) (interactive "P")
|
||||||
(let ((current-prefix-arg (or ,prefix-arg arg)))
|
(let ((current-prefix-arg (or ,prefix-arg arg)))
|
||||||
(funcall-interactively ,command ,@args))))
|
(,(if args
|
||||||
|
'funcall-interactively
|
||||||
|
'call-interactively)
|
||||||
|
,command ,@args))))
|
||||||
|
|
||||||
(defmacro cmds! (&rest branches)
|
(defmacro cmds! (&rest branches)
|
||||||
"Expands to a `menu-item' dispatcher for keybinds."
|
"Expands to a `menu-item' dispatcher for keybinds."
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue