From: Nicolas Richard <theonewiththeevillook@yahoo.fr>
Date: Sun, 16 Feb 2014 10:59:59 +0000 (+0100)
Subject: Add new option use-package-idle-interval
X-Git-Tag: emacs-29.0.90~1306^2~15^2~414^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ab0d77691;p=emacs.git

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
---

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)