Current File : //usr/local/share/emacs/27.2/lisp/time.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 (#$ . 2206))
(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)
#@139 String used in mode lines to display a time string.
It should not be set directly, but is instead updated by the
`display-time' function.
(defvar display-time-string nil (#$ . 3246))
#@75 List of functions to be called when the time is updated on the mode line.
(custom-declare-variable 'display-time-hook nil '(#$ . 3435) :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 (#$ . 3611))
(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& \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 t "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.\n\nIf the value is t instead of an alist, use the value of\n`zoneinfo-style-world-list' if it works on this platform, and of\n`legacy-style-world-list' otherwise." (choice (const :tag "Default" t) (repeat :tag "List of zones and labels" (list (string :tag "Zone") (string :tag "Label"))))] 10)
(defalias 'time--display-world-list #[nil "<\203 \207\305\306\307\310#\305\306\307\311#\211 \230\203 \202 \f*\207" [display-time-world-list gmt nyt legacy-style-world-list zoneinfo-style-world-list format-time-string "%z" nil "America/New_York" "Europe/London"] 6])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\305\306\307\310\311& \210\300\315\316\317\304\305\306\320\310\311& \210\300\321\322\323\304\305\306\324\310\311& \207" [custom-declare-variable display-time-world-time-format "%A %d %B %R %Z" "Format of the time displayed, see `format-time-string'." :group display-time :type string :version "23.1" 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 (#$ . 6821) 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 '(#$ . 7186) :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))) (#$ . 7582))
(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:\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)'." (repeat sexp)] 10)
(defalias 'display-time-event-handler #[nil "\305 \210\306 \307\n\310H\n\311H\n\312HE\313\n\314H_\315#\316 \"\206. \317\n\320\f\"\f#\210\321\n!+\207" [current display-time-timer timer next-time display-time-interval display-time-update current-time timer-relative-time 1 2 3 5 4 0 time-less-p timer-set-time timer-next-integral-multiple-of-time timer-activate] 5])
#@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 \207" [display-time-load-average 3 0 display-time-update] 2 (#$ . 10907) nil])
(defalias 'display-time-mail-check-directory #[nil "\303\304\"\305\211\203/ \305U\203/ \306\n@!\203% \307\n@!\3108\262\206& \305\\\nA\211\204 \305V\2056 *\207" [display-time-mail-directory size mail-files directory-files t 0 file-regular-p file-attributes 7] 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_ \3111] \312_\n\313 8V\203\" \310\202Y \314\315\n\313 8\" \316\317\f\320\321#\322\317\f\321\"Q\323\324\325\326\"\327\330\331\332\n\320U\203I \333\202T \n\334U\203S \335\202T \336\337Q&)0\202_ \210\310 @\206p \340\341!\206p A\342 P BC\203} C \202\274 D\203\207 \343 \202\274 B;\205\274 E\203\234 \344\345\346E!\"\205\274 \306 F\347B!\306 G\344\350\351GF\"\"\205\270 \352G!)E) H\317 \353\354# I\355I! J\356J\353\\\357\246T! KJ\357Y\203\341 \360\202\342 \361 L\317 \362\363# M\317 \364\365# N\366!A@ O\317 \367\370# P\371\372\" Q\317 \373\374# R\375R\376\"A S\317 \320\377# T\201W \201X U\310#V\201Y \201Z !\210.\201[ \201\\ !\207" [now time display-time-load-average display-time-load-average-threshold str load current-time current-time-string "" (error) 100 load-average format " %03d" propertize substring 0 -2 "." 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" getenv "MAIL" user-login-name display-time-mail-check-directory time-less-p 1200 time-since display-time-file-nonempty-p 20 time-subtract float-time 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")) 3 display-time-mail-file rmail-spool-directory mail-spool-file display-time-mail-function display-time-mail-directory display-time-server-down-time start-time end-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 mapconcat eval run-hooks display-time-hook force-mode-line-update all] 10 (#$ . 11474)])
(defalias 'display-time-file-nonempty-p #[(file) "\303Z\304\n!\205 \305\306\307\n!!\3108\262W)\207" [display-time-interval remote-file-name-inhibit-cache file 5 file-exists-p 0 file-attributes file-chase-links 7] 4])
#@272 Non-nil if Display-Time mode is enabled.
See the `display-time-mode' command
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 '(#$ . 13845) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'display-time :type 'boolean)
#@625 Toggle display of time, load level, and mail flag in mode lines.
If called interactively, enable Display-Time mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
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\310 \311=\203 \312\310!?\202 \313 !\314V\"\210\n\203! \315\n!\210\316\317\f\204+ \320
&\203P \303\f>\204> \321\f\322\"\323\324'\325#\326 \210\327\330\325\"\210\202U \331\330\325\"\210\332\333\312\310!\203a \334\202b \335\"\210\336\337!\203\217 \340\310!\210\306 \203z \306 \232\203\217 \317 (\341\342\312\310!\203\211 \343\202\212 \344(#\210))\345 \210\312\310!\207" [#1=#:last-message arg display-time-timer display-time-string global-mode-string display-time-default-load-average current-message set-default display-time-mode toggle default-value 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%s" "en" "dis" force-mode-line-update display-time-load-average display-time-interval local] 4 (#$ . 14289) (list (or current-prefix-arg 'toggle))])
(defvar display-time-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [display-time-mode-map display-time-mode-hook variable-documentation put "Hook run after entering or leaving `display-time-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode display-time-mode nil boundp] 6)
(defvar display-time-world-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [display-time-world-mode-hook variable-documentation put "Hook run after 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.)" boundp display-time-world-mode-map definition-name display-time-world-mode] 4)
(defvar display-time-world-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [display-time-world-mode-abbrev-table 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 (lambda (#1=#:def-tmp-var) (defvar display-time-world-mode-syntax-table #1#)) make-syntax-table "Syntax table for `display-time-world-mode'." (lambda (#1#) (defvar display-time-world-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `display-time-world-mode'." derived-mode-parent special-mode] 5)
#@309 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 or penultimate 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 (#$ . 17800) 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\211 \312 \210\311 \211 \203M @\211A@ \313! \314 @#B B\nV\203C *A\211\204 *\315\316\n!\317Q \237\311 \211 \203y @\320@A#c\210A\211\204` *\321\322!\210.eb\207" [fmt result max-width now buffer-undo-list inhibit-read-only t current-time 0 nil erase-buffer string-width format-time-string "%-" int-to-string "s %s\n" format delete-char -1 alist zone --dolist-tail-- label width display-time-world-time-format timedata] 7 (#$ . 18954)])
#@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 \303 !\204 \304\305\n\306#\210r\307 !q\210\310\311 !\210\312 \313\314B\"\210\315 )\207" [display-time-world-timer-enable display-time-world-buffer-name display-time-world-timer-second get-buffer run-at-time t display-time-world-timer get-buffer-create display-time-world-display time--display-world-list display-buffer nil ((window-height . fit-window-to-buffer)) display-time-world-mode] 4 (#$ . 19588) nil])
(defalias 'display-time-world-timer #[nil "\304!\203 r\304!q\210\305\306 !)\207 \n\2050 \n\211A\242\307 \310H!\311\232\203, \312 !\210)\202 )\207" [display-time-world-buffer-name timer-list list elt get-buffer display-time-world-display time--display-world-list 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" time-convert time-since integer called-interactively-p interactive message "%s"] 5 (#$ . 20549) 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 "%s seconds" float-time time-subtract called-interactively-p interactive message "%s"] 6 (#$ . 21037) nil])
(provide 'time)
Mini Shell