From 0ab0d77691873d25f478c1b6ed5070ee76aeb67d Mon Sep 17 00:00:00 2001 From: Nicolas Richard Date: Sun, 16 Feb 2014 11:59:59 +0100 Subject: [PATCH] Add new option use-package-idle-interval * use-package.el (use-package-idle-interval): new defcustom (use-package-start-idle-timer): use it (use-package-idle-eval): use it * README.md: document it This addresses bug https://github.com/jwiegley/use-package/issues/77 --- lisp/use-package/use-package.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el index a4973fbf627..36e7e0b757e 100644 --- a/lisp/use-package/use-package.el +++ b/lisp/use-package/use-package.el @@ -58,6 +58,11 @@ :type 'number :group 'use-package) +(defcustom use-package-idle-interval 3 + "Time to wait when using :idle in a `use-package' specification." + :type 'number + :group 'use-package) + (defmacro use-package-with-elapsed-timer (text &rest body) (declare (indent 1)) (let ((nowvar (make-symbol "now"))) @@ -82,7 +87,7 @@ (unless use-package-idle-timer (setq use-package-idle-timer (run-with-idle-timer - 3 t + use-package-idle-interval t 'use-package-idle-eval)))) (defun use-package-init-on-idle (form priority) @@ -129,7 +134,7 @@ Return nil when the queue is empty." "Failure on use-package idle. Form: %s, Error: %s" next e))) ;; recurse after a bit - (when (sit-for 3) + (when (sit-for use-package-idle-interval) (use-package-idle-eval))) ;; finished (so far!) (cancel-timer use-package-idle-timer) -- 2.39.2