;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sat Aug 6 14:43:27 1994 ;;; from file /home/fsf/rms/e19/lisp/time.el ;;; emacs version 19.25.91.9. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/home/fsf/rms/e19/lisp/time.el' was compiled for Emacs 19")) (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.") (defvar display-time-server-down-time nil "\ Time when mail file's file system was recorded to be down. If that file system seems to be up, the value is nil.") (defalias 'display-time #[nil " !=?J!  >( \"\f\"!$)!\"\")" [display-time-process process-status run live delete-process global-mode-string ("") display-time-string append (display-time-string) "" nil process-connection-type start-process "display-time" expand-file-name "wakeup" exec-directory 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]) (defalias (quote 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]) (defvar display-time-string-forms (quote ((if display-time-day-and-date (format "%s %s %s " dayname monthname day) "") (format "%s:%s%s" (if display-time-24hr-format 24-hours 12-hours) minutes (if display-time-24hr-format "" am-pm)) load (if mail " Mail" ""))) "\ *A list of expressions governing display of the time in the mode line. This expression is a list of expressions that can involve the keywords `load', `day', `month', and `year', `12-hours', `24-hours', `minutes', `seconds', all numbers in string form, and `monthname', `dayname', `am-pm', and `time-zone' all alphabetic strings, and `mail' a true/nil value. For example, the form '((substring year -2) \"/\" month \"/\" day " " 24-hours \":\" minutes \":\" seconds\n (if time-zone \" (\") time-zone (if time-zone \")\")\n (if mail \" Mail\" \"\"))\n\nwould give mode line times like `94/12/30 21:07:48 (UTC)'.") (byte-code "\"\"" [defalias display-time-filter #[(proc string) " ď$!$ !#!# P  !1 ! O!VNZ[UYׂ[!Yiڂj O O\" A@$ O' O* O--\"A0 O25#7.! q) !!" [current-time-string time nil (byte-code " @U\n‡ @\"O OQ)" [load-average 0 "" format " %03d" str -2 "." nil] 6) ((error "")) load display-time-mail-file getenv "MAIL" rmail-spool-directory "LOGNAME" "USER" user-login-name mail-spool-file file-exists-p display-time-file-nonempty-p mail 11 13 24-hours string-to-int hour int-to-string 12 0 12-hours "pm" "am" am-pm 14 16 minutes 17 19 seconds current-time-zone time-zone 8 10 day 20 24 year 4 7 monthname assoc (("Jan" . "1") ("Feb" . "2") ("Mar" . "3") ("Apr" . "4") ("May" . "5") ("Jun" . "6") ("Jul" . "7") ("Aug" . "8") ("Sep" . "9") ("Oct" . "10") ("Nov" . "11") ("Dec" . "12")) month 3 dayname mapconcat eval display-time-string-forms "" display-time-string run-hooks display-time-hook other-buffer set-buffer-modified-p buffer-modified-p sit-for] 4] display-time-file-nonempty-p #[(file) " ! !!8W" [file-exists-p file 0 7 file-attributes file-chase-links] 5]] 3)