]> git.eshelyaron.com Git - emacs.git/commitdiff
minor fixes to get bind-keymap working in 2.0
authorRussell Black <black.russell@gmail.com>
Tue, 17 Mar 2015 04:55:48 +0000 (22:55 -0600)
committerRussell Black <black.russell@gmail.com>
Tue, 17 Mar 2015 04:55:48 +0000 (22:55 -0600)
lisp/use-package/use-package.el

index 561b12d74a52199607e30d908298343cc9bfddfe..2fae2a2f3ecb9031e8d5e24ba6606e7981aa2ebb 100644 (file)
@@ -384,14 +384,14 @@ possible."
                      `(bind-key ,(car binding)
                                 #'(lambda () (interactive)
                                     (use-package-autoload-keymap
-                                     ',(cdr binding) ,name-symbol nil))))
+                                     ',(cdr binding) (quote ,name-symbol) nil))))
                  (plist-get args :bind-keymap))
 
          (mapcar #'(lambda (binding)
                      `(bind-key ,(car binding)
                                 #'(lambda () (interactive)
                                     (use-package-autoload-keymap
-                                     ',(cdr binding) ,name-symbol t))))
+                                     ',(cdr binding) (quote ,name-symbol) t))))
                  (plist-get args :bind-keymap*))
 
          (mapcar #'(lambda (mode)
@@ -416,7 +416,9 @@ possible."
 
        ;; Should we defer loading of the package lazily?
        (defer-loading (and (not (plist-get args :demand))
-                           (or commands deferral)))
+                           (or commands deferral
+                               (plist-get args :bind-keymap)
+                               (plist-get args :bind-keymap*))))
 
        ;; These are all the configurations to be made after the package has
        ;; loaded.