masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 03:39:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Change some code for consistency's sake

Browse source
This commit is contained in:
John Wiegley 2015-03-17 10:21:34 -05:00
parent c819beebf0
commit eda8246fc6
1 changed files with 24 additions and 24 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) `(bind-key ,(car binding)
#'(lambda () (interactive) #'(lambda () (interactive)
(use-package-autoload-keymap (use-package-autoload-keymap
',(cdr binding) (quote ,name-symbol) nil)))) ',(cdr binding) ',name-symbol nil))))
(plist-get args :bind-keymap)) (plist-get args :bind-keymap))
(mapcar #'(lambda (binding) (mapcar #'(lambda (binding)
`(bind-key ,(car binding) `(bind-key ,(car binding)
#'(lambda () (interactive) #'(lambda () (interactive)
(use-package-autoload-keymap (use-package-autoload-keymap
',(cdr binding) (quote ,name-symbol) t)))) ',(cdr binding) ',name-symbol t))))
(plist-get args :bind-keymap*)) (plist-get args :bind-keymap*))
(mapcar #'(lambda (mode) (mapcar #'(lambda (mode)
@ -428,8 +428,8 @@ possible."
(mapcar #'(lambda (var) (mapcar #'(lambda (var)
(if (listp var) (if (listp var)
`(diminish (quote ,(car var)) ,(cdr var)) `(diminish ',(car var) ,(cdr var))
`(diminish (quote ,var)))) `(diminish ',var)))
(plist-get args :diminish)))) (plist-get args :diminish))))
(config-body* (config-body*