masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-08 13:19:36 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

add dots; cleanup whitespace

Browse source
This commit is contained in:
Jonas Bernoulli 2013-04-27 17:11:16 +02:00
parent a5e4a6d938
commit d2460b9276
1 changed files with 8 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/use-package/use-package.el
View file

@ -288,7 +288,7 @@
(declare-function el-get-read-recipe 'el-get) (declare-function el-get-read-recipe 'el-get)
(defgroup use-package nil (defgroup use-package nil
"A use-package declaration for simplifying your .emacs" "A use-package declaration for simplifying your `.emacs'."
:group 'startup) :group 'startup)
(defcustom use-package-verbose t (defcustom use-package-verbose t
@ -297,15 +297,14 @@
:group 'use-package) :group 'use-package)
(defcustom use-package-debug nil (defcustom use-package-debug nil
"Whether to report more information, mostly regarding el-get" "Whether to report more information, mostly regarding el-get."
:type 'boolean :type 'boolean
:group 'use-package) :group 'use-package)
(defcustom use-package-minimum-reported-time 0.01 (defcustom use-package-minimum-reported-time 0.01
"Minimal load time that will be reported" "Minimal load time that will be reported"
:type 'number :type 'number
:group 'use-package :group 'use-package)
)
(defmacro with-elapsed-timer (text &rest forms) (defmacro with-elapsed-timer (text &rest forms)
`(let ((now ,(if use-package-verbose `(let ((now ,(if use-package-verbose
@ -349,7 +348,7 @@
(defvar use-package-idle-forms nil) (defvar use-package-idle-forms nil)
(defun use-package-start-idle-timer () (defun use-package-start-idle-timer ()
"Ensure that the idle timer is running" "Ensure that the idle timer is running."
(unless use-package-idle-timer (unless use-package-idle-timer
(setq use-package-idle-timer (setq use-package-idle-timer
(run-with-idle-timer (run-with-idle-timer
@ -357,16 +356,15 @@
'use-package-idle-eval)))) 'use-package-idle-eval))))
(defun use-package-init-on-idle (form) (defun use-package-init-on-idle (form)
"Add a new form to the idle queue" "Add a new form to the idle queue."
(use-package-start-idle-timer) (use-package-start-idle-timer)
(if use-package-idle-forms (if use-package-idle-forms
(add-to-list 'use-package-idle-forms (add-to-list 'use-package-idle-forms
form t) form t)
(setq use-package-idle-forms (list form)) (setq use-package-idle-forms (list form))))
))
(defun use-package-idle-eval() (defun use-package-idle-eval()
"Start to eval idle-commands from the idle queue" "Start to eval idle-commands from the idle queue."
(let ((next (pop use-package-idle-forms))) (let ((next (pop use-package-idle-forms)))
(if next (if next
(progn (progn
@ -413,8 +411,7 @@ For full documentation. please see commentary.
:defines Define vars to silence byte-compiler. :defines Define vars to silence byte-compiler.
:load-path Add to `load-path' before loading. :load-path Add to `load-path' before loading.
:diminish Support for diminish package (if it's installed). :diminish Support for diminish package (if it's installed).
:idle adds a form to run on an idle timer :idle adds a form to run on an idle timer"
"
(let* ((commands (plist-get args :commands)) (let* ((commands (plist-get args :commands))
(pre-init-body (plist-get args :pre-init)) (pre-init-body (plist-get args :pre-init))
(init-body (plist-get args :init)) (init-body (plist-get args :init))