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

(defvar display-time-24hr-format nil "\
Non-nil indicates time should be displayed as hh:mm, 0 <= hh <= 23.
Nil means 1 <= hh <= 12, and an AM/PM suffix is used.")

(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 "Äˆ	… Æ	!Ç=?…K 	… È	!ˆ
†  É‰ˆÃ
>†- Ê
Ë\"‰ˆÌ‰ˆÍÎÄÏÐÑ!%‰ˆÒ	!ˆÓ	Ô\"ˆÕ	Ö\")‡" [live display-time-process global-mode-string display-time-string nil display-time-interval process-status run delete-process ("") append (display-time-string) "" start-process "display-time" "loadst" "-n" 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ÈÈÓÔ\"‰ˆÈ=ƒ9 Õ‰	‚B ÈO‰	ˆÖ×ØO!‰ˆ
?ƒz ÙYƒ\\ Ú‚] Û‰ˆÙVƒn ÙZ‰‚w ÜU…w Ù‰‚} Ý‰ˆÞß\"ØàOá	Õ\"ƒ“ Õ‚• 	R‰ˆ…© Ü×OP‰,ˆŠâ q)ˆãä !ˆåÜ!‡" [time mail-spool-file display-time-mail-file rmail-spool-directory hour pm loadloc string nil load display-time-24hr-format display-time-string display-time-day-and-date current-time-string getenv "MAIL" "LOGNAME" "USER" user-login-name string-match "[0-9]+[.][0-9][0-9]" "" read 11 13 12 "pm " "am " 0 " " format "%d" 16 string= other-buffer set-buffer-modified-p buffer-modified-p sit-for] 14))