summaryrefslogtreecommitdiff
path: root/lisp/use-package/use-package.el
diff options
context:
space:
mode:
authorPeter Hoeg <peter@speartail.com>2014-12-17 05:45:53 +0800
committerPeter Hoeg <peter@speartail.com>2014-12-17 05:45:53 +0800
commit435d4b407859f4f82b19662f57ceb7f72b567437 (patch)
tree377a023fefcad4ec9dd55b0c30e1c8f9d834f044 /lisp/use-package/use-package.el
parent18f04bfb99223b7b9a3ec8278fdd13afb1d973ef (diff)
downloademacs-435d4b407859f4f82b19662f57ceb7f72b567437.tar.gz
emacs-435d4b407859f4f82b19662f57ceb7f72b567437.tar.bz2
emacs-435d4b407859f4f82b19662f57ceb7f72b567437.zip
pure cleanup
Diffstat (limited to 'lisp/use-package/use-package.el')
-rw-r--r--lisp/use-package/use-package.el64
1 files changed, 32 insertions, 32 deletions
diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el
index 570044970ea..83b5bd3f08d 100644
--- a/lisp/use-package/use-package.el
+++ b/lisp/use-package/use-package.el
@@ -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