[elpa] externals/leaf 9d79978574 05/28: Merge pull request #509 from meziberry/p/leaf-keys-bind-keymap-asterisk

[ELPA Syncer]

branch: externals/leaf
commit 9d799785744d9ebc9c444f9914b79774bc402ca4
Merge: 61365188be 5469c1b5cf
Author: Naoya Yamashita <conao3@gmail.com>
Commit: GitHub <noreply@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'."