branch: externals/leaf
commit 9d799785744d9ebc9c444f9914b79774bc402ca4
Merge: 61365188be 5469c1b5cf
Author: Naoya Yamashita <con...@gmail.com>
Commit: GitHub <nore...@github.com>
Merge pull request #509 from meziberry/p/leaf-keys-bind-keymap-asterisk
Bugfix: leaf-keys-bind-keymap*'s error: number of arguments.
---
leaf.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/leaf.el b/leaf.el
index 1f579f84c1..67ddf0af7d 100644
--- a/leaf.el
+++ b/leaf.el
@@ -984,12 +984,12 @@ OPTIONAL:
NOTE: BIND can also accept list of these."
`(leaf-keys ,bind ,dryrun-name 'bind-keymap ,pkg))
-(defmacro leaf-keys-bind-keymap* (bind &optional pkg)
+(defmacro leaf-keys-bind-keymap* (bind &optional dryrun-name pkg)
"Similar to `leaf-keys-bind-keymap' but overrides any mode-specific bindings.
BIND must not contain :{{map}}.
If PKG passed, require PKG before binding."
(let ((binds (if (and (atom (car bind)) (atom (cdr bind))) `(,bind) bind)))
- `(leaf-keys (:leaf-key-override-global-map ,@binds) ,pkg)))
+ `(leaf-keys (:leaf-key-override-global-map ,@binds) ,dryrun-name
'bind-keymap ,pkg)))
(define-derived-mode leaf-key-list-mode tabulated-list-mode "Leaf-key Bindings"
"Major mode for listing bindings configured via `leaf-key'."
