;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Thu Jun 8 22:14:27 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/time.el ;;; emacs version 19.28.93.6. ;;; 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.28.90"))) (error "`time.el' was compiled for Emacs 19.29 or later")) #@208 *File name of mail inbox file, for indicating existence of new mail. Non-nil and not a string means don't check for mail. nil means use default, which is system-dependent, and is the same as used by Rmail. (defvar display-time-mail-file nil (#$ . -471)) #@77 *Non-nil means \[display-time] should display day and date as well as time. (defvar display-time-day-and-date nil (#$ . -732)) (byte-code "! B‡" [boundp display-time-process nil current-load-list] 2) #@52 *Seconds between updates of time in the mode line. (defvar display-time-interval 60 (#$ . -948)) #@124 *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. (defvar display-time-24hr-format nil (#$ . -1052)) (byte-code "! B‡" [boundp display-time-string nil current-load-list] 2) #@77 * List of functions to be called when the time is updated on the mode line. (defvar display-time-hook nil (#$ . -1314)) #@114 Time when mail file's file system was recorded to be down. If that file system seems to be up, the value is nil. (defvar display-time-server-down-time nil (#$ . 1441)) #@269 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'. (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 (#$ . 1616) nil]) (defalias 'display-time-sentinel #[(proc reason) " !=\n!!" [process-status proc run "" display-time-string force-mode-line-update t sit-for 0] 2]) #@605 *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 (if time-zone " (") time-zone (if time-zone ")") (if mail " Mail" "")) would give mode line times like `94/12/30 21:07:48 (UTC)'. (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" ""))) (#$ . -2565)) (defalias 'display-time-filter #[(proc string) "  !Ə! P ;X5 A@ZVX  ! A@A@ZVT A@W) O!\\ڦT!Y|܂} O! O$ !A@& O) O+ O..\"A1 O47#9.! !" [current-time now 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 user-login-name mail-spool-file display-time-server-down-time 1200 start-time display-time-file-nonempty-p 20 mail 11 13 24-hours string-to-int hour int-to-string 12 12-hours "pm" "am" am-pm 14 16 minutes 17 19 seconds current-time-zone time-zone 8 10 day 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 0 3 dayname mapconcat eval display-time-string-forms "" display-time-string run-hooks display-time-hook force-mode-line-update sit-for] 5]) (defalias 'display-time-file-nonempty-p #[(file) " ! !!8W" [file-exists-p file 0 7 file-attributes file-chase-links] 5])