;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:21:12 2007 ;;; from file /home/cyd/emacs/lisp/time.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file contains multibyte non-ASCII characters ;;; and therefore cannot be loaded into Emacs 19. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`time.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'display-time nil "Display time and load in mode line of Emacs." :group 'mode-line :group 'mail) #@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 '(#$ . -675) :type '(choice (const :tag "None" none) (const :tag "Default" nil) (file :format "%v")) :group 'display-time) #@200 *Name of mail inbox directory, for indicating existence of new mail. Any nonempty regular file in the directory is regarded as newly arrived mail. If nil, do not check a directory for arriving mail. (custom-declare-variable 'display-time-mail-directory 'nil '(#$ . -1066) :type '(choice (const :tag "None" nil) (directory :format "%v")) :group 'display-time) #@248 *Function to call, for indicating existence of new mail. If nil, that means use the default method: check that the file specified by `display-time-mail-file' is nonempty or that the directory `display-time-mail-directory' contains nonempty files. (custom-declare-variable 'display-time-mail-function 'nil '(#$ . -1432) :type '(choice (const :tag "Default" nil) (function)) :group 'display-time) #@202 *Which load average value will be shown in the mode line. Almost every system can provide values of load for past 1 minute, past 5 or past 15 minutes. The default is to display 1 minute load average. (custom-declare-variable 'display-time-default-load-average '0 '(#$ . -1834) :type '(choice (const :tag "1 minute load" 0) (const :tag "5 minutes load" 1) (const :tag "15 minutes load" 2) (const :tag "None" nil)) :group 'display-time) #@50 Load average currently being shown in mode line. (defvar display-time-load-average nil (#$ . 2276)) #@72 *Load-average values below this value won't be shown in the mode line. (custom-declare-variable 'display-time-load-average-threshold '0.1 '(#$ . -2382) :type 'number :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 '(#$ . -2576) :type 'boolean :group 'display-time) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list display-time-timer default-boundp set-default nil] 3) #@52 *Seconds between updates of time in the mode line. (custom-declare-variable 'display-time-interval '60 '(#$ . -2901) :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 '(#$ . -3062) :type 'boolean :group 'display-time) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list display-time-string default-boundp set-default nil] 3) #@76 *List of functions to be called when the time is updated on the mode line. (custom-declare-variable 'display-time-hook 'nil '(#$ . -3434) :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 (#$ . 3613)) #@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 (#$ . 3788) nil]) #@217 Face to use for `display-time-mail-string'. If `display-time-use-mail-icon' is non-nil, the image's background color is the background of this face. Set this to make the mail indicator stand out on a color display. (custom-declare-variable 'display-time-mail-face 'nil '(#$ . 4153) :group 'mode-line-faces :group 'display-time :version "22.1" :type '(choice (const :tag "None" nil) face)) #@137 Image specification to offer as the mail indicator on a graphic display. See `display-time-use-mail-icon' and `display-time-mail-face'. (defvar display-time-mail-icon (find-image '((:type xpm :file "letter.xpm" :ascent center) (:type pbm :file "letter.pbm" :ascent center))) (#$ . 4550)) #@200 Non-nil means use an icon as mail indicator on a graphic display. Otherwise use `display-time-mail-string'. The icon may consume less of the mode line. It is specified by `display-time-mail-icon'. (custom-declare-variable 'display-time-use-mail-icon 'nil '(#$ . 4845) :group 'display-time :type 'boolean) #@134 String to use as the mail indicator in `display-time-string-forms'. This can use the Unicode letter character if you can display it. (custom-declare-variable 'display-time-mail-string '"Mail" '(#$ . 5159) :group 'display-time :version "22.1" :type '(choice (const "Mail") (const :tag "Unicode letter character" "œò¥É") string)) #@255 *String specifying 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 '(#$ . -5494) :type '(choice (const :tag "Default" nil) string) :group 'display-time) #@719 *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) "") (propertize (format-time-string (or display-time-format (if display-time-24hr-format "%H:%M" "%-I:%M%p")) now) 'help-echo (format-time-string "%a %b %e, %Y" now)) load (if mail (concat " " (propertize display-time-mail-string 'display `(when (and display-time-use-mail-icon (display-graphic-p)) ,@display-time-mail-icon ,@(if (and display-time-mail-face (memq (plist-get (cdr display-time-mail-icon) :type) '(pbm xbm))) (let ((bg (face-attribute display-time-mail-face :background))) (if (stringp bg) (list :background bg))))) 'face display-time-mail-face 'help-echo "You have new mail; mouse-2: Read mail" 'mouse-face 'mode-line-highlight 'local-map (make-mode-line-mouse-map 'mouse-2 read-mail-command))) "")) '(#$ . -5892) :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-next-load-average #[nil "T\211\301U\203 \302\303 \210\304\302!\207" [display-time-load-average 3 0 display-time-update sit-for] 2 nil nil]) (defalias 'display-time-mail-check-directory #[nil "\303\304\"\305\211\203, \305U\203, \306\n@!\203\"\307\310\n@!8\206#\305\\\nA\211\204 \305V\2053 *\207" [display-time-mail-directory size mail-files directory-files t 0 file-regular-p 7 file-attributes] 5]) #@193 Update the display-time info for the mode line. However, don't redisplay right now. This is used for things like Rmail `g' that want to force an update which can wait for the next redisplay. (defalias 'display-time-update #[nil "\306 \307!\n\204\310\202\311\312\313\217\f\206\"\314\315!\206\" \316 P./\203// \206\2060\2039\317 \206\206.;\205\2061\203cA@1Z\320V\204cA@1W\205\206A@1Z\321V\205\206\306 2\322.!\306 A@2A@Z\323V\203\202\306 A@1\202\205\3111)3 \324\325O4\3264!5\3275\324\\\330\246T!65\330Y\203\252\331\202\253\3327 \333\334O8 \335\336O9\337!A@: \340\341O; \323\342O< \343\344O=\345=\346\"A> \347\350O?\351\352@\310#A\353\354!\210.\355 \207" [now time display-time-load-average load display-time-mail-file rmail-spool-directory current-time current-time-string "" nil (byte-code "\303_ \304 8V\203 \305\207\306\307 \304 8\"\310\n\311\312O\313\n\312\314OQ\315\316\317\320\"\321\322\323\324 \311U\2033\325\202> \326U\203=\327\202>\330\331Q&)\207" [display-time-load-average-threshold display-time-load-average str 100 load-average "" format " %03d" propertize 0 -2 "." nil local-map make-mode-line-mouse-map mouse-2 display-time-next-load-average mouse-face mode-line-highlight help-echo "System load average for past " "1 minute" 1 "5 minutes" "15 minutes" "; mouse-2: next"] 10) ((error "")) getenv "MAIL" user-login-name display-time-mail-check-directory 1200 -64336 display-time-file-nonempty-p 20 11 13 string-to-number 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 mail-spool-file display-time-mail-function display-time-mail-directory 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] 4 (#$ . 8420)]) (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]) #@272 Non-nil if Display-Time mode is enabled. See the command `display-time-mode' for a description of this minor-mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `display-time-mode'. (custom-declare-variable 'display-time-mode 'nil '(#$ . 10666) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'display-time :type 'boolean) #@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 #[(&optional arg) "\306=\203 ?\202%\203\307!\310V\202% \204\311\202%\312\313\301\"\210\314\n\203.\315\n!\210\314\316\f\2048\317 \" \203\\\303\f>\204J\320\f\321\"\322\311#\323#\324 \210\325\326\323\"\210\202a\327\326\323\"\210\330\331 \203k\332\202l\333\"\210\334 \203\204\335\301!\210\312\336 \203\201\337\202\202\340\"\210\341 \210 \207" [arg display-time-mode display-time-timer display-time-string global-mode-string display-time-default-load-average toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil cancel-timer "" ("") append (display-time-string) run-at-time display-time-event-handler display-time-update add-hook rmail-after-get-new-mail-hook remove-hook run-hooks display-time-mode-hook display-time-mode-on-hook display-time-mode-off-hook called-interactively-p customize-mark-as-set "Display-Time mode %sabled" "en" "dis" force-mode-line-update display-time-load-average display-time-interval] 4 (#$ . 11111) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\210\305\306!\207" [add-minor-mode display-time-mode nil boundp display-time-mode-map provide time] 5)