;ELC   
;;; compiled by roland@churchy.gnu.ai.mit.edu on Wed Jul  7 01:14:59 1993
;;; from file /gd/gnu/emacs/19.0/lisp/time.el
;;; emacs version 19.16.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 "This file 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.")
(defalias 'display-time #[nil "…	 Б!В=‰?…E ѓ Д!€„ ЖЗ>„( ИЙ\"КЛМНПPР!$Т!€УФ\"€ХЦ\")‡" [display-time-process process-status run live delete-process global-mode-string ("") display-time-string append (display-time-string) "" start-process "display-time" nil exec-directory "wakeup" 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) "А БВГЏ†! ЕЖ!†! ЕИ!†  ЕЙ!†  К PБ‰РСТO!„f ФYѓF Х‚G ЦФVѓY ФZ‚i ЧUѓi Ф‚i ШЩЪ\"ТЫOЬ!ѓ‰ Э!ѓ‰ Ю‚Љ Ш° ѓќ ЧС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 "LOGNAME" "USER" user-login-name am-pm-flag hour mail-spool-file load time read 11 13 display-time-24hr-format 12 "pm" "am" 0 "" format "%d" 16 file-exists-p display-time-file-nonempty-p " Mail" 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‡" [0 7 file-attributes file-chase-links file] 5]] 3)