;;; compiled by rms@mole.gnu.ai.mit.edu on Thu May 27 00:34:10 1993
;;; from file /home/fsf/rms/e19/lisp/time.el
;;; emacs version 19.8.0.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(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 "АБM€ВГM€ДЕM‡" [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 "" concat 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] 7] display-time-file-nonempty-p #[(file) "А	!ѓ А	!‚  ВГ	!8ДV‡" [file-symlink-p file 7 file-attributes 0] 3]] 2)