From: John Wiegley <johnw@newartisans.com>
Date: Fri, 1 Dec 2017 04:35:29 +0000 (-0800)
Subject: Code reformatting
X-Git-Tag: emacs-29.0.90~1306^2~15^2~210
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0791e3fefe;p=emacs.git

Code reformatting
---

diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el
index 748074ad115..7a7b4660ca0 100644
--- a/lisp/use-package/use-package.el
+++ b/lisp/use-package/use-package.el
@@ -42,8 +42,9 @@
 (require 'bind-key)
 (require 'bytecomp)
 (require 'cl-lib)
-(eval-when-compile (require 'cl))
-(eval-when-compile (require 'regexp-opt))
+(eval-when-compile
+  (require 'cl)
+  (require 'regexp-opt))
 
 (declare-function package-installed-p "package")
 (declare-function package-read-all-archive-contents "package" ())
@@ -683,11 +684,8 @@ If the package is installed, its entry is removed from
      (if packages
          (list
           (intern
-           (completing-read
-            "Select package: "
-            packages
-            nil
-            'require-match))
+           (completing-read "Select package: "
+                            packages nil 'require-match))
           :interactive)
        (user-error "No packages with deferred installation"))))
   (let ((spec (gethash name use-package--deferred-packages)))
@@ -960,7 +958,7 @@ If ALLOW-EMPTY is non-nil, it's OK for ARGS to be an empty list."
 (defun use-package-handler/:preface (name keyword arg rest state)
   (let ((body (use-package-process-keywords name rest state)))
     (use-package-concat
-     (unless (null arg)
+     (when arg
        `((eval-and-compile ,@arg)))
      body)))
 
@@ -1450,11 +1448,13 @@ representing symbols (that may need to be autloaded)."
         (unless (or (null config-body) (equal config-body '(t)))
           `((eval-after-load ,(if (symbolp name) `',name name)
               ',(macroexp-progn config-body))))
-      ;; Here we are checking the marker value for deferred
-      ;; installation set in `use-package-handler/:ensure'. See also
+
+      ;; Here we are checking the marker value for deferred installation set
+      ;; in `use-package-handler/:ensure'. See also
       ;; `use-package-handler/:defer-install'.
       (when (eq (plist-get state :defer-install) :ensure)
         (use-package-install-deferred-package name :config))
+
       (use-package--with-elapsed-timer
           (format "Loading package %s" name)
         (if use-package-expand-minimally