;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@34 Version string of emms-later-do. (defvar emms-later-do-version "0.2emms4 (2018-04-07)" (#$ . 87)) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\317%\207" [custom-declare-group emms-later-do nil "*Running functions ... later!" :prefix "emms-later-do-" :group development custom-declare-variable emms-later-do-interval funcall function #[0 "\300\207" [0.5] 1] "How many seconds to wait between running events." :type number emms-later-do-batch #[0 "\300\207" [20] 1] "How many functions to process before waiting `emms-later-do-interval'.\nThe functions are processed from `emms-later-do-list'. Must be 1 or\ngreater. Too high a value might make Emacs slower while the\nlist is being processed."] 8) #@44 A list of functions to be called later on. (defvar emms-later-do-list nil (#$ . 867)) #@36 The timer that emms-later-do uses. (defvar emms-later-do-timer nil (#$ . 959)) #@259 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 `emms-later-do' is guaranteed to be executed in the sequence it was added. (fn FUNCTION &rest ARGS) (defalias 'emms-later-do #[385 "BC\244 ?\205\303\n\304\301#\211\207" [emms-later-do-list emms-later-do-timer emms-later-do-interval run-with-timer nil] 6 (#$ . 1045)]) #@76 Run the next element in `emms-later-do-list', or do nothing if it's empty. (defalias 'emms-later-do-timer #[0 "\204\304\211\207\304\305\216\nG^\306\211W\203/\304@@@AA\307\"\262\266\211T\262\202\266)\310 \304\301#\211\207" [emms-later-do-list emms-later-do-timer emms-later-do-batch emms-later-do-interval nil #[0 "\300\207" [nil] 1] 0 apply run-with-timer] 9 (#$ . 1484)]) (provide 'emms-later-do)