;ELC   
;;; Compiled by heimdall@baldur on Fri Feb  1 18:35:01 2008
;;; from file /home/heimdall/repos/emms/later-do.el
;;; in Emacs version 23.0.60.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`later-do.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@29 Version string of later-do.
(defvar later-do-version "0.2emms2 (2005-09-20)" (#$ . 579))
(custom-declare-group 'later-do nil "*Running functions ... later!" :prefix "later-do-" :group 'development)
#@50 How many seconds to wait between running events.
(custom-declare-variable 'later-do-interval '0.5 '(#$ . 783) :group 'later-do :type 'number)
#@43 A list of functions to be called lateron.
(defvar later-do-list nil (#$ . 931))
#@31 The timer that later-do uses.
(defvar later-do-timer nil (#$ . 1017))
#@226 Apply FUNCTION to ARGS later on. This is an unspecified amount of
time after this call, and definitely not while lisp is still
executing.
Code added using `later-do' is guaranteed to be executed in the
sequence it was added.
(defalias 'later-do #[(function &rest args) "	\nBC\244?\205 \305\f\306\303#\211\207" [later-do-list function args later-do-timer later-do-interval run-with-timer nil] 4 (#$ . 1094)])
#@71 Run the next element in `later-do-list', or do nothing if it's
empty.
(defalias 'later-do-timer #[nil "\204 \305\211\207\211@@)\211@A)A\306\216\307\f\"+\207" [later-do-list later-do-timer x args fun nil ((byte-code "\302\303\301#\303\207" [later-do-interval later-do-timer run-with-timer nil] 4)) apply] 4 (#$ . 1513)])
(provide 'later-do)