;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May  3 21:55:00 1994
;;; from file /gd/gnu/emacs/19.0/lisp/time.el
;;; emacs version 19.22.92.2.
;;; 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/time.el' was compiled for Emacs 19"))

(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.")
(byte-code "АБ!„ ВВ‡" [boundp display-time-process nil] 2)
(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.")
(byte-code "АБ!„ ВВ‡" [boundp display-time-string nil] 2)
(defvar display-time-hook nil "\
* List of functions to be called when the time is updated on the mode line.")
(defvar display-time-server-down-time nil "\
Time when mail file's file system was recorded to be down.
If that file system seems to be up, the value is nil.")
(defalias 'display-time #[nil "…	 Б!В=‰?…J ѓ Д!€„ ЖЗ>„( ИЙ\"КЛ\fНОЛПР\"Т!$)Ф!€ХЦ\"€ЧШ\")‡" [display-time-process process-status run live delete-process global-mode-string ("") display-time-string append (display-time-string) "" nil process-connection-type start-process "display-time" expand-file-name "wakeup" exec-directory int-to-string display-time-interval process-kill-without-query set-process-sentinel display-time-sentinel set-process-filter display-time-filter] 7 "\
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'." nil])
(byte-code "АБВ\"€АГД\"€АЕЖ\"‡" [defalias display-time-sentinel #[(proc reason) "А	!В=„\n ГЉЕ q€)ЖЗ !€ИЙ!‡" [process-status proc run "" display-time-string other-buffer set-buffer-modified-p buffer-modified-p sit-for 0] 2] display-time-filter #[(proc string) "А БВГЏ\f† ЕЖ!† И PБ‰‰	\n\fПРСO!„] УYѓ= Ф‚> Х\nУVѓP УZ‚` ЦUѓ` У‚` Ч\nѓq Щ A@ZЪVѓ› Щ Ь\f!Щ A@A@ZЭVѓђ Щ A@‚“ Б)ѓ› Ю‚њ Ч	Яа\"СбO\n	°\"#ѓБ ЦРO\"P\".де!€Љж q€)зи !€йЦ!‡" [current-time-string nil (byte-code "А @БUѓ\n В‡ГДА @\"‰БЖOЗЖИOQ)‡" [load-average 0 "" format " %03d" str -2 "." nil] 6) ((error "")) display-time-mail-file getenv "MAIL" rmail-spool-directory user-login-name mail-flag am-pm-flag hour mail-spool-file load time read 11 13 display-time-24hr-format 12 "pm" "am" 0 "" display-time-server-down-time current-time 1200 start-time display-time-file-nonempty-p 20 " Mail" format "%d" 16 display-time-string display-time-day-and-date run-hooks display-time-hook other-buffer set-buffer-modified-p buffer-modified-p sit-for] 6] display-time-file-nonempty-p #[(file) "А	!… ВГДЕ	!!8W‡" [file-exists-p file 0 7 file-attributes file-chase-links] 5]] 3)