
(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 "Д€	… З	!И=?…M 	… Й	!€
†  К‰€Г
>†- Л
М\"‰€Н‰€ОПДРPС!$‰€Т	!€У	Ф\"€Х	Ц\")‡" [live display-time-process global-mode-string display-time-string 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 Ю‚x 	ЦЯOа	ЯКOQб
!…… вг
!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 "А‡" [""] 1))) 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] 17))