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

Stylistic changes

Browse source
This commit is contained in:
John Wiegley 2015-03-13 03:25:32 -05:00
parent f8bf1b0986
commit 30da0769bf
1 changed files with 5 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/use-package/use-package.el
View file

@ -366,7 +366,6 @@ For full documentation. please see commentary.
;; force this immediately -- one off cost ;; force this immediately -- one off cost
(unless (use-package-plist-get args :disabled) (unless (use-package-plist-get args :disabled)
(when archive-name (when archive-name
(use-package-pin-package name archive-name)) (use-package-pin-package name archive-name))
@ -380,7 +379,6 @@ For full documentation. please see commentary.
(require 'package) (require 'package)
(use-package-ensure-elpa package-name))) (use-package-ensure-elpa package-name)))
(if diminish-var (if diminish-var
(setq (setq
config-body config-body
@ -406,7 +404,6 @@ For full documentation. please see commentary.
(if (and commands (symbolp commands)) (if (and commands (symbolp commands))
(setq commands (list commands))) (setq commands (list commands)))
(when idle-body (when idle-body
(when (null idle-priority) (when (null idle-priority)
(setq idle-priority 5)) (setq idle-priority 5))
@ -457,26 +454,22 @@ For full documentation. please see commentary.
(funcall init-for-commands-or-keymaps (funcall init-for-commands-or-keymaps
(lambda (binding) (lambda (binding)
`(bind-key ,(car binding) `(bind-key ,(car binding) (quote ,(cdr binding))))
(quote ,(cdr binding))))
keybindings-alist) keybindings-alist)
(funcall init-for-commands-or-keymaps (funcall init-for-commands-or-keymaps
(lambda (binding) (lambda (binding)
`(bind-key* ,(car binding) `(bind-key* ,(car binding) (quote ,(cdr binding))))
(quote ,(cdr binding))))
overriding-keybindings-alist) overriding-keybindings-alist)
(funcall init-for-commands-or-keymaps (funcall init-for-commands-or-keymaps
(lambda (mode) (lambda (mode)
`(add-to-list 'auto-mode-alist `(add-to-list 'auto-mode-alist (quote ,mode)))
(quote ,mode)))
mode-alist) mode-alist)
(funcall init-for-commands-or-keymaps (funcall init-for-commands-or-keymaps
(lambda (interpreter) (lambda (interpreter)
`(add-to-list 'interpreter-mode-alist `(add-to-list 'interpreter-mode-alist (quote ,interpreter)))
(quote ,interpreter)))
interpreter-alist)) interpreter-alist))
`(progn `(progn