4.3BSD-Reno/contrib/lib/emacs/lisp/time.elc

(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Š	…È	!ˆ
†!ɉˆÃ
>†.Ê
Ë\"‰ˆÌ‰ˆÍÎÄÏÐÑ
!%‰ˆÒ	!ˆÓ	Ô\"ˆÕ	Ö\"))‡" [live display-time-process global-mode-string display-time-string nil display-time-interval process-status run delete-process ("") append (display-time-string) "time and load" 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 "GÃV…
ÄÅO‰ˆGÆV…ÇÈÆ#…)ÉÊ!ÅO‰ˆ‚ˆÇË\"…:ÊÉÊ!TO‰ˆ	…HÌ ÊÍOP‰ˆ‰ˆŠÎ q)ˆÏÐ !ˆÑÊ!‡" [string display-time-day-and-date display-time-string 30 -30 nil 4 string-match "[0-9]+:[0-9][0-9].." match-beginning 0 "[^0-9][0-9]+:" current-time-string 11 other-buffer set-buffer-modified-p buffer-modified-p sit-for] 10))