;ELC   
;;; compiled by jwz@thalidomide on Sun Jan  2 02:59:46 1994
;;; from file /th/jwz/emacs19/lisp/packages/time.el
;;; emacs version 19.9 Lucid (beta10).
;;; bytecomp version 2.22; 22-dec-93.
;;; 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 "This file was compiled for Emacs 19."))

(require 'itimer)
(defvar display-time-mail-file nil "\
*File name of mail inbox file, for indicating existence of new mail.
Default is system-dependent, and is the same as used by Rmail.")
(defvar display-time-day-and-date nil "\
*Non-nil means \\[display-time] should display day and date as well as time.")
(defvar display-time-interval 60 "\
*Seconds between updates of time in the mode line.")
(defvar display-time-24hr-format nil "\
*Non-nill indicates time should be displayed as hh:mm, 0 <= hh <= 23.
Nil means 1 <= hh <= 12, and an AM/PM suffix is used.")
(defvar display-time-echo-area nil "\
*If non-nil, display-time will use the echo area instead of the mode line.")
(defvar display-time-hook nil "\
*List of functions to be called when the time is updated on the mode line.")
(byte-code "ÀÁ!¬‚ÂÂ‡" [boundp display-time-string nil] 2)
(fset 'display-time #[nil "ÀÁ!‰«„Ã\n!ˆ)¬…¬‚Æ¬ŠÇ>¬…ÈÉ\"Ê ˆËÁÊ‰$‡" [get-itimer "display-time" old delete-itimer display-time-echo-area global-mode-string ("") display-time-string append (display-time-string) display-time-function start-itimer display-time-interval] 6 "\
Display current time, load level, and mail flag in mode line of each buffer.
Updates automatically every minute.
If `display-time-day-and-date' is non-nil, the current day and date
are displayed as well.
After each update, `display-time-hook' is run with `run-hooks'.
If `display-time-echo-area' is non-nil, the time is displayed in the
echo area instead of in the mode-line." nil])
(byte-code "ÀÁMˆÂÃ!‡" [display-time-function #[nil "À ÁÂÃ‰ÃÆÇ*\"®”ÉÊ!®ÉÌ!®‡ÉÍ!®‚Î PÃ‰‰ÕÖ×O!¬¥ÙY«ƒÚªÛÙV«ˆÙZªŽÜU«ˆÙªƒÝÁÞ\"×ßOÜàOáàÃOâ!«Üãäå!!8W«ƒæªÝ°'«ŠÜÖOPèé!ˆ*«Œë ÜV®˜Šì‹)ª’-Šî qˆ)ïð !ˆñÜ!.‡" [current-time-string format " %03d" nil stack-trace-on-error debug-on-error (byte-code "À @‡" [load-average] 1) ((error 0)) display-time-mail-file getenv "MAIL" rmail-spool-directory "LOGNAME" "USER" user-login-name string am-pm-flag hour mail-spool-file load time read 11 13 display-time-24hr-format 12 "pm" "am" 0 "" "%d" 16 -2 "." file-exists-p 7 file-attributes file-chase-links " Mail" display-time-day-and-date run-hooks display-time-hook display-time-echo-area minibuffer-depth ((byte-code "ÀÁ !ˆÂ ˆÃ GZÅZjˆcˆÆÇ !‡" [select-window minibuffer-window erase-buffer screen-width string 1 message buffer-string] 2)) display-time-string other-buffer set-buffer-modified-p buffer-modified-p sit-for] 11] provide time] 2)