From 30da0769bf91124af0bde01bab65f206a6be9e91 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 13 Mar 2015 03:25:32 -0500 Subject: [PATCH] Stylistic changes --- lisp/use-package/use-package.el | 17 +++++------------ 1 file changed, 5 insertions(+), 12 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index b619dcf0ce4..aa80eb0547f 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -135,7 +135,7 @@ Return nil when the queue is empty." (remhash priority use-package-idle-forms)) first-form)) -(defun use-package-idle-eval() +(defun use-package-idle-eval () "Start to eval idle-commands from the idle queue." (let ((next (use-package-idle-pop))) (if next @@ -366,7 +366,6 @@ For full documentation. please see commentary. ;; force this immediately -- one off cost (unless (use-package-plist-get args :disabled) - (when archive-name (use-package-pin-package name archive-name)) @@ -380,7 +379,6 @@ For full documentation. please see commentary. (require 'package) (use-package-ensure-elpa package-name))) - (if diminish-var (setq config-body @@ -406,7 +404,6 @@ For full documentation. please see commentary. (if (and commands (symbolp commands)) (setq commands (list commands))) - (when idle-body (when (null idle-priority) (setq idle-priority 5)) @@ -457,26 +454,22 @@ For full documentation. please see commentary. (funcall init-for-commands-or-keymaps (lambda (binding) - `(bind-key ,(car binding) - (quote ,(cdr binding)))) + `(bind-key ,(car binding) (quote ,(cdr binding)))) keybindings-alist) (funcall init-for-commands-or-keymaps (lambda (binding) - `(bind-key* ,(car binding) - (quote ,(cdr binding)))) + `(bind-key* ,(car binding) (quote ,(cdr binding)))) overriding-keybindings-alist) (funcall init-for-commands-or-keymaps (lambda (mode) - `(add-to-list 'auto-mode-alist - (quote ,mode))) + `(add-to-list 'auto-mode-alist (quote ,mode))) mode-alist) (funcall init-for-commands-or-keymaps (lambda (interpreter) - `(add-to-list 'interpreter-mode-alist - (quote ,interpreter))) + `(add-to-list 'interpreter-mode-alist (quote ,interpreter))) interpreter-alist)) `(progn -- 2.39.2