]> git.eshelyaron.com Git - emacs.git/commitdiff
pure cleanup
authorPeter Hoeg <peter@speartail.com>
Tue, 16 Dec 2014 21:45:53 +0000 (05:45 +0800)
committerPeter Hoeg <peter@speartail.com>
Tue, 16 Dec 2014 21:45:53 +0000 (05:45 +0800)
lisp/use-package/use-package.el

index 570044970ea114ba1547694ef29de20ffa4332c0..83b5bd3f08d61e06aec60ccf97cad0940ad4d2c5 100644 (file)
@@ -113,10 +113,10 @@ Return nil when the queue is empty."
          (forms           (gethash priority use-package-idle-forms))
          (first-form      (car forms))
          (forms-remaining (cdr forms)))
-      (if forms-remaining
-          (puthash priority forms-remaining use-package-idle-forms)
-        (remhash priority use-package-idle-forms))
-      first-form))
+    (if forms-remaining
+        (puthash priority forms-remaining use-package-idle-forms)
+      (remhash priority use-package-idle-forms))
+    first-form))
 
 (defun use-package-idle-eval()
   "Start to eval idle-commands from the idle queue."
@@ -152,28 +152,28 @@ Return nil when the queue is empty."
 
 (defvar use-package-keywords
   '(
-     :bind
-     :bind*
-     :commands
-     :config
-     :defer
-     :defines
-     :demand
-     :diminish
-     :disabled
-     :ensure
-     :idle
-     :idle-priority
-     :if
-     :init
-     :interpreter
-     :load-path
-     :mode
-     :pin
-     :pre-init
-     :pre-load
-     :requires
-  )
+    :bind
+    :bind*
+    :commands
+    :config
+    :defer
+    :defines
+    :demand
+    :diminish
+    :disabled
+    :ensure
+    :idle
+    :idle-priority
+    :if
+    :init
+    :interpreter
+    :load-path
+    :mode
+    :pin
+    :pre-init
+    :pre-load
+    :requires
+    )
   "Keywords recognized by `use-package'.")
 
 (defun use-package-mplist-get (plist prop)
@@ -239,11 +239,11 @@ are all non-keywords elements that follow it."
   "Error if any keyword given in ARGS is not recognized.
 Return the list of recognized keywords."
   (mapc
-    (function
-      (lambda (keyword)
-        (unless (memq keyword use-package-keywords)
-          (error "Unrecognized keyword: %s" keyword))))
-    (use-package-mplist-keys args)))
+   (function
+    (lambda (keyword)
+      (unless (memq keyword use-package-keywords)
+        (error "Unrecognized keyword: %s" keyword))))
+   (use-package-mplist-keys args)))
 
 (defmacro use-package (name &rest args)
   "Use a package with configuration options.
@@ -391,7 +391,7 @@ For full documentation. please see commentary.
         (funcall init-for-commands
                  #'(lambda (binding)
                      `(bind-key* ,(car binding)
-                                (quote ,(cdr binding))))
+                                 (quote ,(cdr binding))))
                  overriding-keybindings-alist)
 
         (funcall init-for-commands