From eda8246fc66c2a6dcc8d8300794122309f1f2e6d Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Tue, 17 Mar 2015 10:21:34 -0500
Subject: [PATCH] Change some code for consistency's sake

---
 lisp/use-package/use-package.el | 48 ++++++++++++++++-----------------
 1 file changed, 24 insertions(+), 24 deletions(-)

diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el
index 2fae2a2f3ec..4bef7964760 100644
--- a/lisp/use-package/use-package.el
+++ b/lisp/use-package/use-package.el
@@ -384,14 +384,14 @@ possible."
                      `(bind-key ,(car binding)
                                 #'(lambda () (interactive)
                                     (use-package-autoload-keymap
-                                     ',(cdr binding) (quote ,name-symbol) nil))))
+                                     ',(cdr binding) ',name-symbol nil))))
                  (plist-get args :bind-keymap))
 
          (mapcar #'(lambda (binding)
                      `(bind-key ,(car binding)
                                 #'(lambda () (interactive)
                                     (use-package-autoload-keymap
-                                     ',(cdr binding) (quote ,name-symbol) t))))
+                                     ',(cdr binding) ',name-symbol t))))
                  (plist-get args :bind-keymap*))
 
          (mapcar #'(lambda (mode)
@@ -428,16 +428,16 @@ possible."
 
          (mapcar #'(lambda (var)
                      (if (listp var)
-                         `(diminish (quote ,(car var)) ,(cdr var))
-                       `(diminish (quote ,var))))
+                         `(diminish ',(car var) ,(cdr var))
+                       `(diminish ',var)))
                  (plist-get args :diminish))))
 
        (config-body*
         (and config-body
              (macroexpand
               `(use-package-with-elapsed-timer
-                 ,(format "Configuring package %s" name-string)
-                 ,@config-body))))
+                ,(format "Configuring package %s" name-string)
+                ,@config-body))))
 
        (config-defun
         (make-symbol (concat "use-package--" name-string "--config"))))
@@ -488,24 +488,24 @@ possible."
           (list t))
        `(,(macroexpand
            `(use-package-with-elapsed-timer
-              ,(format "Loading package %s" name-string)
-              ,(if use-package-expand-minimally
-                   (use-package-progn
-                    (use-package-cat-maybes
-                     (list `(require ',name-symbol))
-                     bindings
-                     config-body
-                     (list t)))
-                 `(if (not (require ',name-symbol nil t))
-                      (ignore
-                       (display-warning
-                        'use-package
-                        (format "Could not load package %s" ,name-string)
-                        :error))
-                    ,@(use-package-cat-maybes
-                       bindings
-                       config-body
-                       (list t)))))))))))
+             ,(format "Loading package %s" name-string)
+             ,(if use-package-expand-minimally
+                  (use-package-progn
+                   (use-package-cat-maybes
+                    (list `(require ',name-symbol))
+                    bindings
+                    config-body
+                    (list t)))
+                `(if (not (require ',name-symbol nil t))
+                     (ignore
+                      (display-warning
+                       'use-package
+                       (format "Could not load package %s" ,name-string)
+                       :error))
+                   ,@(use-package-cat-maybes
+                      bindings
+                      config-body
+                      (list t)))))))))))
 
 (defmacro use-package (name &rest args)
   "Declare an Emacs package by specifying a group of configuration options.
-- 
2.39.2