;ELC   
;;; compiled by roland@geech.gnu.ai.mit.edu on Mon Jun 27 16:11:11 1994
;;; from file /gd/gnu/emacs/19.0/lisp/timer.el
;;; emacs version 19.25.13.
;;; 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"))

(byte-code "ÀÂÃ!„\n ÄÂÅ!„ ÄÂÆ!„ ÇÄ‡" ["timer" timer-program boundp timer-process nil timer-alist timer-out ""] 2)
(defvar timer-dont-exit nil "\
If non-nil, don't exit the timer process when no more events are pending.")
(byte-code "ÀÁÂ\"ˆÃÄÁ\"‡" [defalias timer-kill-emacs-hook #[nil "… ÁÂ\"ˆÃÂ\"ˆÄ!‡" [timer-process set-process-sentinel nil set-process-filter delete-process] 3] add-hook kill-emacs-hook] 3)
(defalias 'run-at-time #[(time repeat function &rest args) "Ášƒ Â¨ƒ ÄÅ\"ƒ  Ç!È>ƒQ ƒ* É!ˆÂ\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" expand-file-name timer-program exec-directory 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 "\
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." "sRun at time: \nNRepeat interval: \naFunction: "])
(defalias 'cancel-timer #[(elt) "AÁ ˆAAÂ ‡" [elt nil ignore] 2 "\
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."])
(byte-code "ÀÁÂ\"ˆÀÃÄ\"‡" [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$ˆ‚\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 ding no-terminate message "%s for %s; couldn't set at \"%s\"" timer-dont-exit process-send-eof] 6] timer-process-sentinel #[(proc str) "À	!‰Ã=ƒ Ä	!‚( ƒ\" \nÆ=„\" ÇÈ!ˆÉÊ!ˆË\fË‰)‡" [process-status proc stat stop continue-process timer-alist exit ding no-terminate message "Timer exited abnormally.  All events cancelled." nil timer-process] 3]] 3)
(defalias 'cancel-function-timers #[(function) "‰ƒ Â	@8=ƒ Ä	@\"	A‰„ )†) †) Æ!‡" [timer-alist alist 2 function delq timer-dont-exit process-send-eof timer-process] 4 "\
Cancel all events scheduled by `run-at-time' which would run FUNCTION." "aCancel timers of function: "])
(provide (quote timer))