diff options
| -rw-r--r-- | doc/emms.texinfo | 3 | ||||
| -rw-r--r-- | lisp/later-do.el | 28 |
2 files changed, 21 insertions, 10 deletions
diff --git a/doc/emms.texinfo b/doc/emms.texinfo index 215d282..863e236 100644 --- a/doc/emms.texinfo +++ b/doc/emms.texinfo @@ -909,7 +909,8 @@ annoying for you, set this variable to nil. @defopt emms-info-asynchronously Non-nil when track information should be loaded asynchronously. This requires the feature `later-do' which is provided by the file -@file{later-do.el}, which should come with Emms. +@file{later-do.el}, which comes with Emms. See @var{later-do-batch} for +performance tweaking. @end defopt @defopt emms-info-functions Functions which add information to tracks. Each is called with a diff --git a/lisp/later-do.el b/lisp/later-do.el index d8222ae..5908ac5 100644 --- a/lisp/later-do.el +++ b/lisp/later-do.el @@ -1,7 +1,7 @@ ;;; later-do.el --- execute lisp code ... later ;; Copyright (C) 2004, 2005, 2006, 2007, 2008, -;; 2009 Free Software Foundation, Inc. +;; 2009, 2018 Free Software Foundation, Inc. ;; Author: Jorgen Schaefer <forcer@forcix.cx> @@ -28,7 +28,7 @@ ;;; Code: -(defvar later-do-version "0.2emms2 (2005-09-20)" +(defvar later-do-version "0.2emms4 (2018-04-07)" "Version string of later-do.") (defgroup later-do nil @@ -41,6 +41,14 @@ :group 'later-do :type 'number) +(defcustom later-do-batch 20 + "How many functions to process before waiting `later-do-interval'. +The functions are processed from `later-do-list'. Must be 1 or +greater. Too high a value might make Emacs slower while the +list is being processed." + :group 'later-do + :type 'number) + (defvar later-do-list nil "A list of functions to be called later on.") @@ -63,14 +71,16 @@ executed in the sequence it was added." empty." (if (null later-do-list) (setq later-do-timer nil) - (let ((fun (caar later-do-list)) - (args (cdar later-do-list))) - (setq later-do-list (cdr later-do-list)) + (let (res) (unwind-protect - (apply fun args) - (setq later-do-timer (run-with-timer later-do-interval - nil - 'later-do-timer)))))) + (dotimes (b (min later-do-batch (length later-do-list)) res) + (let ((fun (caar later-do-list)) + (args (cdar later-do-list))) + (setq later-do-list (cdr later-do-list)) + (setq res (apply fun args))))) + (setq later-do-timer (run-with-timer later-do-interval + nil + 'later-do-timer))))) (provide 'later-do) ;;; later-do.el ends here |