;ELC ;;; Compiled by rms@psilocin.gnu.org on Mon Apr 20 00:01:11 1998 ;;; from file /gd/gnu/emacs/lisp/time.el ;;; in Emacs version 20.2.91.4 ;;; with bytecomp version 2.40 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`time.el' was compiled for Emacs 19.29 or later")) (custom-declare-group 'display-time nil "Display time and load in mode line of Emacs." :group 'modeline :group 'mail) #@136 Toggle display of time, load level, and mail flag in mode lines. You must modify via \[customize] for this variable to have an effect. (custom-declare-variable 'display-time-mode 'nil '(#$ . 642) :set (lambda (symbol value) (display-time-mode (or value 0))) :initialize 'custom-initialize-default :type 'boolean :group 'display-time :require 'time :version "20.3") #@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. (custom-declare-variable 'display-time-mail-file 'nil '(#$ . -1014) :type '(choice (const :tag "Default" nil) (file :format "%v")) :group 'display-time) #@77 *Non-nil means \[display-time] should display day and date as well as time. (custom-declare-variable 'display-time-day-and-date 'nil '(#$ . -1380) :type 'boolean :group 'display-time) (byte-code "\302\300!\204\303\300 B\303\207" [display-time-timer current-load-list boundp nil] 2) #@52 *Seconds between updates of time in the mode line. (custom-declare-variable 'display-time-interval '60 '(#$ . -1672) :type 'integer :group 'display-time) #@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. (custom-declare-variable 'display-time-24hr-format 'nil '(#$ . -1833) :type 'boolean :group 'display-time) (byte-code "\302\300!\204\303\300 B\303\207" [display-time-string current-load-list boundp nil] 2) #@76 *List of functions to be called when the time is updated on the mode line. (custom-declare-variable 'display-time-hook 'nil '(#$ . -2172) :type 'hook :group 'display-time) #@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 (#$ . 2351)) #@271 Enable display of time, load level, and mail flag in mode lines. This display updates automatically every minute. If `display-time-day-and-date' is non-nil, the current day and date are displayed as well. This runs the normal hook `display-time-hook' after each update. (defalias 'display-time #[nil "\300\301!\207" [display-time-mode 1] 2 (#$ . 2526) nil]) #@352 Toggle display of time, load level, and mail flag in mode lines. With a numeric arg, enable this display if arg is positive. When this display is enabled, it updates automatically every minute. If `display-time-day-and-date' is non-nil, the current day and date are displayed as well. This runs the normal hook `display-time-hook' after each update. (defalias 'display-time-mode #[(arg) "\204 ?\202\306!\307V\211 \203\310 !\210\311\312 \204#\313\n\203C\304 >\2042\314 \315\"\316\317\320#\321 \210\322\323\320\"\202G\324\323\320\")\207" [arg display-time-timer on display-time-mode display-time-string global-mode-string prefix-numeric-value 0 cancel-timer nil "" ("") append (display-time-string) run-at-time t display-time-event-handler display-time-update add-hook rmail-after-get-new-mail-hook remove-hook display-time-interval] 5 (#$ . 2891) "P"]) #@261 *A string specifying the format for displaying the time in the mode line. See the function `format-time-string' for an explanation of how to write this string. If this is nil, the defaults depend on `display-time-day-and-date' and `display-time-24hr-format'. (custom-declare-variable 'display-time-format 'nil '(#$ . -3772) :type '(choice (const :tag "Default" nil) string) :group 'display-time) #@721 *A list of expressions governing display of the time in the mode line. For most purposes, you can control the time format using `display-time-format' which is a more standard interface. 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)'. (custom-declare-variable 'display-time-string-forms ''((if (and (not display-time-format) display-time-day-and-date) (format-time-string "%a %b %e " now) "") (format-time-string (or display-time-format (if display-time-24hr-format "%H:%M" "%-I:%M%p")) now) load (if mail " Mail" "")) '(#$ . -4176) :type 'sexp :group 'display-time) (defalias 'display-time-event-handler #[nil "\305 \210\306\307!\210\310  \311\n\312H\n\313H\n\314HE\n\315H\316_\307#\211@@V\206a @@U\2039 A@A@V\206a @@U\203U A@A@U\203U\313 8\3138V\206a\317\n\320\f\"\f#\210\321\n!+\207" [current display-time-timer timer next-time display-time-interval display-time-update sit-for 0 current-time timer-relative-time 1 2 3 4 5 timer-set-time timer-next-integral-multiple-of-time timer-activate] 6]) (defalias 'display-time-update #[nil "\306 \307!\310\311\312\217 \206\313\314!\206\f\315 P\211;\205S,\2031\306 A@,Z\316V\205S\306 -\317 !\306 A@-A@Z\320V\203O\306 A@,\202R\310,). \321\322O/\323/!0\3240\321\\\325\246T!10\325Y\203w\326\202x\3272 \330\331O3 \332\333O4\334!A@5 \335\336O6 \320\337O7 \340\341O8\3428\343\"A9 \344\345O:\346\347;\350#<\351\352!\210.\353 \207" [now time load display-time-mail-file rmail-spool-directory mail-spool-file current-time current-time-string nil (byte-code "\301 @\302U\203\n\303\207\304\305\301 @\"\211\302\306O\307\306\310OQ)\207" [str load-average 0 "" format " %03d" -2 "." nil] 6) ((error "")) getenv "MAIL" user-login-name 1200 display-time-file-nonempty-p 20 11 13 string-to-int int-to-string 12 "pm" "am" 14 16 17 19 current-time-zone 8 10 24 4 7 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")) 0 3 mapconcat eval "" run-hooks display-time-hook force-mode-line-update display-time-server-down-time start-time mail 24-hours hour 12-hours am-pm minutes seconds time-zone day year monthname month dayname display-time-string-forms display-time-string] 5]) (defalias 'display-time-file-nonempty-p #[(file) "\301!\205\302\303\304\305!!8W\207" [file file-exists-p 0 7 file-attributes file-chase-links] 5]) (byte-code "\203\300\301!\210\302\303!\207" [display-time-mode t provide time] 2)