emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/leaf 5ac6ae61e1 04/28: leaf-keys use the BIND-KEYMAP-PK


From: ELPA Syncer
Subject: [elpa] externals/leaf 5ac6ae61e1 04/28: leaf-keys use the BIND-KEYMAP-PKG ranther than :package's value, when 'bind-keymap being non-nil.
Date: Wed, 19 Jan 2022 18:58:35 -0500 (EST)

branch: externals/leaf
commit 5ac6ae61e174ef4efbf87e72d40fb56944312a11
Author: Caowei <igooo.v@gmail.com>
Commit: Caowei <igooo.v@gmail.com>

    leaf-keys use the BIND-KEYMAP-PKG ranther than :package's value, when 
'bind-keymap being non-nil.
---
 leaf.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/leaf.el b/leaf.el
index 1f579f84c1..3ebc06f6ea 100644
--- a/leaf.el
+++ b/leaf.el
@@ -872,8 +872,8 @@ If BIND-KEYMAP-PKG is passed, require it before binding.
 OPTIONAL:
   BIND also accept below form.
     (:{{map}} :package {{pkg}} (KEY . COMMAND) (KEY . COMMAND))
-  KEYMAP is quoted keymap name.
-  PKG is quoted package name which define KEYMAP.
+  KEYMAP is keymap name.
+  PKG is package name which define KEYMAP.
   (wrap `eval-after-load' PKG)
 
   If DRYRUN-NAME is non-nil, return list like
@@ -924,7 +924,7 @@ NOTE: BIND can also accept list of these."
                                  (lambda (elm)
                                    (push (cdr elm) fns)
                                    (if bind-keymap
-                                       `(leaf-key-bind-keymap ,(car elm) ,(cdr 
elm) ',map ',pkg)
+                                       `(leaf-key-bind-keymap ,(car elm) ,(cdr 
elm) ',map ,bind-keymap-pkg)
                                      `(leaf-key ,(car elm) #',(cdr elm) 
',map)))
                                  elmbinds))))
                 (push (if pkg



reply via email to

[Prev in Thread] Current Thread [Next in Thread]