mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-31 04:41:23 -08:00
Code Issues Projects Releases Wiki Activity

minor fixes to get bind-keymap working in 2.0

Browse source
This commit is contained in:
Russell Black 2015-03-16 22:55:48 -06:00
parent 771f2edc83
commit 8d7a0c2185
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/use-package/use-package.el
View 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.