| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/time.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:32 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/time.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\304\306&\210\307\310\302\311\312\313\304\301&\210\307\314\302\315\312\316\304\301&\210\307\317\302\320\312\321\304\301&\210\307\322\323\324\312\325\304\301&\207" [custom-declare-group display-time nil "Display time and load in mode line of Emacs." :group mode-line mail custom-declare-variable display-time-mail-file "File name of mail inbox file, for indicating existence of new mail.\nNon-nil and not a string means don't check for mail; nil means use\ndefault, which is system-dependent, and is the same as used by Rmail." :type (choice (const :tag "None" none) (const :tag "Default" nil) (file :format "%v")) display-time-mail-directory "Name of mail inbox directory, for indicating existence of new mail.\nAny nonempty regular file in the directory is regarded as newly arrived mail.\nIf nil, do not check a directory for arriving mail." (choice (const :tag "None" nil) (directory :format "%v")) display-time-mail-function "Function to call, for indicating existence of new mail.\nIf nil, that means use the default method: check that the file\nspecified by `display-time-mail-file' is nonempty or that the\ndirectory `display-time-mail-directory' contains nonempty files." (choice (const :tag "Default" nil) (function)) display-time-default-load-average 0 "Which load average value will be shown in the mode line.\nAlmost every system can provide values of load for the past 1 minute,\npast 5 or past 15 minutes. The default is to display 1-minute load average.\nThe value can be one of:\n\n 0 => 1 minute load\n 1 => 5 minutes load\n 2 => 15 minutes load\n nil => None (do not display the load average)" (choice (const :tag "1 minute load" 0) (const :tag "5 minutes load" 1) (const :tag "15 minutes load" 2) (const :tag "None" nil))] 8)
#@168 Value of the system's load average currently shown on the mode line.
See `display-time-default-load-average'.
This is an internal variable; setting it has no effect.
(defvar display-time-load-average nil (#$ . 2345))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\207" [custom-declare-variable display-time-load-average-threshold 0.1 "Load-average values below this value won't be shown in the mode line." :type number :group display-time display-time-day-and-date nil "Non-nil means \\[display-time] should display day and date as well as time." boolean] 8)
(defvar display-time-timer nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\207" [custom-declare-variable display-time-interval 60 "Seconds between updates of time in the mode line." :type integer :group display-time display-time-24hr-format nil "Non-nil indicates time should be displayed as hh:mm, 0 <= hh <= 23.\nA value of nil means 1 <= hh <= 12, and an AM/PM suffix is used." boolean] 8)
(defvar display-time-string nil)
#@75 List of functions to be called when the time is updated on the mode line.
(custom-declare-variable 'display-time-hook nil '(#$ . 3417) :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 (#$ . 3593))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\305\306\315\310\311& \210\300\316\317\320\304\305\306\321\310\311& \210\300\322\323\324\304\305\306\325\310\311& \210\300\326\327\330\304\305\306\325\310\311& \210\300\331\332\333\304\305\306\334\310\311& \210\300\335\336\337\304\305\306\340\310\311& \207" [custom-declare-variable zoneinfo-style-world-list '(("America/Los_Angeles" "Seattle") ("America/New_York" "New York") ("Europe/London" "London") ("Europe/Paris" "Paris") ("Asia/Calcutta" "Bangalore") ("Asia/Tokyo" "Tokyo")) "Alist of zoneinfo-style time zones and places for `display-time-world'.\nEach element has the form (TIMEZONE LABEL).\nTIMEZONE should be a string of the form AREA/LOCATION, where AREA is\nthe name of a region -- a continent or ocean, and LOCATION is the name\nof a specific location, e.g., a city, within that region.\nLABEL is a string to display as the label of that TIMEZONE's time." :group display-time :type (repeat (list string string)) :version "23.1" legacy-style-world-list '(("PST8PDT" "Seattle") ("EST5EDT" "New York") ("GMT0BST" "London") ("CET-1CDT" "Paris") ("IST-5:30" "Bangalore") ("JST-9" "Tokyo")) "Alist of traditional-style time zones and places for `display-time-world'.\nEach element has the form (TIMEZONE LABEL).\nTIMEZONE should be a string of the form:\n\n std[+|-]offset[dst[offset][,date[/time],date[/time]]]\n\nSee the documentation of the TZ environment variable on your system,\nfor more details about the format of TIMEZONE.\nLABEL is a string to display as the label of that TIMEZONE's time." (repeat (list string string)) display-time-world-list (let ((old-tz (getenv "TZ")) gmt nyt) (unwind-protect (progn (setenv "TZ" "America/New_York") (setq nyt (format-time-string "%z")) (setenv "TZ" "Europe/London") (setq gmt (format-time-string "%z"))) (setenv "TZ" old-tz)) (if (string-equal nyt gmt) legacy-style-world-list zoneinfo-style-world-list)) "Alist of time zones and places for `display-time-world' to display.\nEach element has the form (TIMEZONE LABEL).\nTIMEZONE should be in a format supported by your system. See the\ndocumentation of `zoneinfo-style-world-list' and\n`legacy-style-world-list' for two widely used formats. LABEL is\na string to display as the label of that TIMEZONE's time." (repeat (list string string)) display-time-world-time-format "%A %d %B %R %Z" "Format of the time displayed, see `format-time-string'." string display-time-world-buffer-name "*wclock*" "Name of the world clock buffer." display-time-world-timer-enable t "If non-nil, a timer will update the world clock." boolean display-time-world-timer-second 60 "Interval in seconds for updating the world clock." integer] 10)
#@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 (#$ . 6483) 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 '(#$ . 6848) :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))) (#$ . 7244))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\313\314\306\315& \210\300\316\302\317\306\320\304\305&\210\300\321\322\323\306\324\304\305&\207" [custom-declare-variable display-time-use-mail-icon nil "Non-nil means use an icon as mail indicator on a graphic display.\nOtherwise use `display-time-mail-string'. The icon may consume less\nof the mode line. It is specified by `display-time-mail-icon'." :group display-time :type boolean display-time-mail-string "Mail" "String to use as the mail indicator in `display-time-string-forms'.\nThis can use the Unicode letter character if you can display it." :version "22.1" (choice (const "Mail") (const :tag "Unicode letter character" "✉") string) display-time-format "String specifying format for displaying the time in the mode line.\nSee the function `format-time-string' for an explanation of\nhow to write this string. If this is nil, the defaults\ndepend on `display-time-day-and-date' and `display-time-24hr-format'." (choice (const :tag "Default" nil) string) display-time-string-forms '((if (and (not display-time-format) display-time-day-and-date) (format-time-string "%a %b %e " now) #1="") (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))) #1#)) "List of expressions governing display of the time in the mode line.\nFor most purposes, you can control the time format using `display-time-format'\nwhich is a more standard interface.\n\nThis expression is a list of expressions that can involve the keywords\n`load', `day', `month', and `year', `12-hours', `24-hours', `minutes',\n`seconds', all numbers in string form, and `monthname', `dayname', `am-pm',\nand `time-zone' all alphabetic strings, and `mail' a true/nil value.\n\nFor example, the form\n\n '((substring year -2) \"/\" month \"/\" day\n \" \" 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)'." sexp] 10)
(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])
#@130 Switch between different load averages in the mode line.
Switches from the 1 to 5 to 15 minute load average, and then back to 1.
(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 (#$ . 10645) 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 /0\203/ 0 \202\206 1\2039 \317 \202\206 /;\205\206 2\203c A@2Z\320V\204c A@2W\205\206 A@2Z\321V\205\206 \306 3\322/!\306 A@3A@Z\323V\203\202 \306 A@2\202\205 \3112) 4 \324\325O 5\3265! 6\3276\324\\\330\246T! 76\330Y\203\252 \331\202\253 \332 8 \333\334O 9 \335\336O :\337!A@ ; \340\341O <\342\343\" = \344\345O >\346>\347\"A ? \350\351O @\352\353A\310#B\354\355!\210.\356 \207" [now time display-time-load-average load display-time-mail-file rmail-spool-directory current-time current-time-string #1="" 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 #1# 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 #1#)) 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 format-time-string "%Y" 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 (#$ . 11228)])
(defalias 'display-time-file-nonempty-p #[(file) "\303Z\304\n!\205 \305\306\307\310\n!!8W)\207" [display-time-interval remote-file-name-inhibit-cache file 5 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 '(#$ . 13567) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'display-time :type 'boolean)
#@537 Toggle display of time, load level, and mail flag in mode lines.
With a prefix argument ARG, enable Display Time mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
it if ARG is omitted or nil.
When Display Time mode is enabled, it updates every minute (you
can control the number of seconds between updates by customizing
`display-time-interval'). 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 \307=\203 \n?\202 \310 !\311V \203 \312 !\210\313\314
\204& \315#$\n\203K \304
>\2049 \316
\317\"\320\321%\322#\323 \210\324\325\322\"\210\202P \326\325\322\"\210\327\330\n\203Z \331\202[ \332\"\210\333\334!\203\200 \335\302!\210\306 \203s \306 \232\203\200 \336\337\n\203} \340\202~ \341\"\210)\342 \210\n\207" [#1=#:last-message arg display-time-mode display-time-timer display-time-string global-mode-string current-message toggle prefix-numeric-value 0 cancel-timer nil #2="" (#2#) 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 run-hooks display-time-mode-hook display-time-mode-on-hook display-time-mode-off-hook called-interactively-p any customize-mark-as-set message "Display-Time mode %sabled" "en" "dis" force-mode-line-update display-time-default-load-average display-time-load-average display-time-interval] 4 (#$ . 14011) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306N\204 \307\305\306\310\311!#\210\304\312!\204( \307\312\313\314#\210\303\207" [display-time-mode-map add-minor-mode display-time-mode nil boundp display-time-world-mode-hook variable-documentation put purecopy "Hook run when entering World clock mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" display-time-world-mode-map definition-name display-time-world-mode] 6)
(defvar display-time-world-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [display-time-world-mode-map variable-documentation put purecopy "Keymap for `display-time-world-mode'." boundp display-time-world-mode-syntax-table definition-name display-time-world-mode] 5)
(defvar display-time-world-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [display-time-world-mode-syntax-table variable-documentation put purecopy "Syntax table for `display-time-world-mode'." display-time-world-mode-abbrev-table definition-name display-time-world-mode] 5)
(defvar display-time-world-mode-abbrev-table (progn (define-abbrev-table 'display-time-world-mode-abbrev-table nil) display-time-world-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [display-time-world-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `display-time-world-mode'." display-time-world-mode derived-mode-parent special-mode] 5)
#@294 Major mode for buffer that displays times in various time zones.
See `display-time-world'.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `display-time-world-mode-hook', as the final step
during initialization.
\{display-time-world-mode-map}
(defalias 'display-time-world-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324 \325\"\204V =\204V \326 \325 C#\210\327 !\210\330\f!\210 \331 )\332\333!\207" [delay-mode-hooks major-mode mode-name display-time-world-mode-map display-time-world-mode-syntax-table parent make-local-variable t special-mode display-time-world-mode "World clock" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table nil run-mode-hooks display-time-world-mode-hook display-time-world-mode-abbrev-table local-abbrev-table show-trailing-whitespace] 6 (#$ . 17213) nil])
#@74 Replace current buffer text with times in various zones, based on ALIST.
(defalias 'display-time-world-display #[(alist) "\306\211\307\310!\311\312\211 \313 \210\314\216\312 \211 \203W @\211\211 A@) \315! \316\310@\"\210\317 !B B\nV\203M *A\211\204 +\320\321\n!\322Q \237\312 \211 \203\203 @ \323 @ A#c\210A\211\204j *\324\325!.\207" [fmt result max-width old-tz buffer-undo-list inhibit-read-only t getenv "TZ" 0 nil erase-buffer ((setenv "TZ" old-tz)) string-width setenv format-time-string "%-" int-to-string "s %s\n" format delete-char -1 alist zone --dolist-tail-- x label width display-time-world-time-format timedata] 7 (#$ . 18352)])
#@172 Enable updating display of times in various time zones.
`display-time-world-list' specifies the zones.
To turn off the world time display, go to that window and type `q'.
(defalias 'display-time-world #[nil "\203 \304 !\204 \305\306\n\307#\210r\310 !q\210\311 !\210\312 \313\314B\"\210\315 )\207" [display-time-world-timer-enable display-time-world-buffer-name display-time-world-timer-second display-time-world-list get-buffer run-at-time t display-time-world-timer get-buffer-create display-time-world-display display-buffer nil ((window-height . fit-window-to-buffer)) display-time-world-mode] 4 (#$ . 19049) nil])
(defalias 'display-time-world-timer #[nil "\305!\203 r\305!q\210\306 !)\207\n \205/ \211A@ \307\f\310H!\311\232\203+ \312\f!\210)\202 )\207" [display-time-world-buffer-name display-time-world-list timer-list list elt get-buffer display-time-world-display symbol-name 5 "display-time-world-timer" cancel-timer] 3])
#@192 Return a string giving the uptime of this instance of Emacs.
FORMAT is a string to format the result, using `format-seconds'.
For example, the Unix uptime command format is "%D, %z%2h:%.2m".
(defalias 'emacs-uptime #[(&optional format) "\303\206 \304\305\306\307 \"!\"\310\311!\203 \312\313\n\"\202 \n)\207" [format before-init-time str format-seconds "%Y, %D, %H, %M, %z%S" float-time time-subtract current-time called-interactively-p interactive message "%s"] 6 (#$ . 19998) nil])
#@66 Return a string giving the duration of the Emacs initialization.
(defalias 'emacs-init-time #[nil "\303\304\305\306 \"!\"\307\310!\203 \311\312\n\"\202 \n)\207" [after-init-time before-init-time str format "%.1f seconds" float-time time-subtract called-interactively-p interactive message "%s"] 6 (#$ . 20493) nil])
(provide 'time)