;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:53:41 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/timer.el ;;; emacs version 19.28.90.26. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/timer.el' was compiled for Emacs 19")) #@102 The name of the program to run as the timer subprocess. It should normally be in the exec-directory. (defvar timer-program (expand-file-name "timer" exec-directory) (#$ . 480)) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÂÄ BÀÅ!„ ÆÅ B‡" [boundp timer-process nil current-load-list timer-alist timer-out ""] 2) #@75 If non-nil, don't exit the timer process when no more events are pending. (defvar timer-dont-exit nil (#$ . 788)) (byte-code "ÀÁÂÃ#ˆÀÁÄÅ#ˆÀÆÂÇ#ˆÀÆÄÈ#ˆÀÉÂÊ#ˆÀÉÄË#‡" [put timer-error error-conditions (error timer-error) error-message "Timer error" timer-abnormal-termination (error timer-error timer-abnormal-termination) "Timer exited abnormally--all events cancelled" timer-filter-error (error timer-error timer-filter-error) "Error in timer process filter"] 4) (defalias 'timer-kill-emacs-hook #[nil "…ÁÂ\"ˆÃÂ\"ˆÄ!‡" [timer-process set-process-sentinel nil set-process-filter delete-process] 3]) (add-hook (quote kill-emacs-hook) (quote timer-kill-emacs-hook)) #@886 Run a function at a time, and optionally on a regular interval. Arguments are TIME, REPEAT, FUNCTION &rest ARGS. TIME, a string, can be specified absolutely or relative to now. TIME can also be an integer, a number of seconds. REPEAT, an integer number of seconds, is the interval on which to repeat the call to the function. If REPEAT is nil or 0, call it just once. Absolute times may be specified in a wide variety of formats; Something of the form `HOUR:MIN:SEC TIMEZONE MONTH/DAY/YEAR', where all fields are numbers, works; the format used by the Unix `date' command works too. Relative times may be specified as a series of numbers followed by units: 1 min denotes one minute from now. min does too. 1 min 5 sec denotes 65 seconds from now. 1 min 2 sec 3 hour 4 day 5 week 6 fortnight 7 month 8 year denotes the sum of all the given durations from now. (defalias 'run-at-time #[(time repeat function &rest args) "ÁšƒÂ ¨ƒÄÅ \"ƒ Ç!È>ƒMƒ*É!ˆÂ\nËÌ #)ÂÏÐ\"ˆÑÒ\"ˆÓ!ˆ‚[Ç!Ô=ƒ[Õ!ˆÖ ×GQ‰FÜ ÝÞR\"ˆB*‡" [repeat 0 nil time format "%d sec" timer-process process-status (exit signal nil) delete-process process-connection-type start-process "timer" timer-program timer-alist set-process-filter timer-process-filter set-process-sentinel timer-process-sentinel process-kill-without-query stop continue-process current-time-string "-" token function args elt process-send-string "@" "\n"] 7 (#$ . 1463) "sRun at time: \nNRepeat interval: \naFunction: "]) #@205 Cancel a timer previously made with `run-at-time'. The argument should be a value previously returned by `run-at-time'. Cancelling the timer means that nothing special will happen at the specified time. (defalias 'cancel-timer #[(elt) "AÁ ˆAA ‡" [elt nil ignore] 2 (#$ . 2999)]) (defalias 'timer-process-filter #[(proc str) " P‰‰ÆÇ\"ƒŸȉ”OÉ\f\n\"È•ÂO ƒRËÌ 8Í 8\"ˆÎ A@!ƒHÏ A@Ñ @ÇR\"ˆ‚\nÒ \n\"\n‚\nÆÓ\f\"ƒ\n\fÔ”Ô•O\f̔̕OÉ\f͔͕O\n\"Ò\f\n\"‰\n„‡„‡Ö!ˆ×ØÙÚÛ Ì\f8 $#ˆÜØ D\"ˆ‚\n\n†­†­Ö!+‡" [timer-out str nil error token do string-match "\n" 0 assoc timer-alist apply 2 3 natnump send-string proc " sec@" delq "timer: \\([^:]+\\): \\([^@]*\\)@\\(.*\\)$" 1 timer-dont-exit process-send-eof put timer-filter-error error-message format "%s for %s; couldn't set at \"%s\"" signal] 9]) (defalias 'timer-process-sentinel #[(proc str) "À !‰Ã=ƒÄ !‚4 ƒ.\nÆ=„. È ÈÊË \n\fF\"ˆ)È ȉ)‡" [process-status proc stat stop continue-process timer-alist exit alist nil timer-process signal timer-abnormal-termination str] 7]) #@72 Cancel all events scheduled by `run-at-time' which would run FUNCTION. (defalias 'cancel-function-timers #[(function) "‰ƒ @8 =ƒÄ @\" A‰„)†) †)Æ!‡" [timer-alist alist 2 function delq timer-dont-exit process-send-eof timer-process] 4 (#$ . 4069) "aCancel timers of function: "]) (provide (quote timer))