
(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-process nil)

(defvar display-time-interval 60 "\
*Seconds between updates of time in the mode line.")

(defvar display-time-string nil)

(defun display-time nil "\
Display current time and load level 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." (interactive) (byte-code "Е€	… И	!Й=?…Q 	… К	!€
†  Л‰€Г
>†- М
Н\"‰€О‰€ЕПРЕСPТ!$‰)€У	!€Ф	Х\"€Ц	Ч\")‡" [live display-time-process global-mode-string display-time-string process-connection-type nil exec-directory display-time-interval process-status run delete-process ("") append (display-time-string) "" start-process "display-time" "wakeup" int-to-string process-kill-without-query set-process-sentinel display-time-sentinel set-process-filter display-time-filter] 10))

(defun display-time-sentinel (proc reason) (byte-code "В!Г=† Д‰€ЉЕ q)€ЖЗ !€ИЙ!‡" [proc display-time-string process-status run "" other-buffer set-buffer-modified-p buffer-modified-p sit-for 0] 6))

(defun display-time-filter (proc string) (byte-code "Й КЛМЏ†  НО!†  НП!† НР!† С PККТУФO!‰€ХY‰€ХVѓF ХZ‰‚O ЦU…O Х‰€ЧШЩ\"ФЪOѓb Ы‚c ЬЭ	Ю\"ѓn Ю‚y Я	ЦаOб	аКORв
!…† гд
!8ЦVѓЌ е‚Ћ Ю%‰€…ў ЦУOP‰-€Љж q)€зи !€йЦ!‡" [time load mail-spool-file display-time-mail-file rmail-spool-directory hour pm display-time-string display-time-day-and-date current-time-string nil (byte-code "АБ @!ѓ В‚ ГДБ @\"‡" [zerop load-average "" format "%03d"] 6) ((error (byte-code "АБВЏ‡" [nil (byte-code "БЋЉВГ!q€ДЕАp#€eb€ЖЗ!€И`ЙК!€`\"И`TЙК!€`\"P))‡" [nil ((byte-code "АБ!‡" [kill-buffer " *uptime*"] 2)) get-buffer-create " *uptime*" call-process "/usr/ucb/uptime" search-forward "average: " buffer-substring forward-word 1] 10) ((error (byte-code "А‡" [""] 1)))] 3))) getenv "MAIL" "LOGNAME" "USER" user-login-name read 11 13 12 0 concat format "%d" 16 "pm" "am" string= "" " " -2 "." file-exists-p 7 file-attributes " Mail" other-buffer set-buffer-modified-p buffer-modified-p sit-for] 18))