;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\304\306&\210\307\310\311\312\313DD\314\315\316%\210\307\317\311\312\320DD\321\315\322%\210\307\323\311\312\324DD\325\315\326%\210\307\327\311\312\330DD\331\315\332%\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 funcall function #[0 "\300\207" [nil] 1 #1=""] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 "\300\207" [0] 1 #1#] "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 (#$ . 2013))
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable display-time-load-average-threshold funcall function #[0 "\300\207" [0.1] 1 #1=""] "Load-average values below this value won't be shown in the mode line." :type number display-time-day-and-date #[0 "\300\207" [nil] 1 #1#] "Non-nil means \\[display-time] should display day and date as well as time." boolean] 6)
(defvar display-time-timer nil)
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable display-time-interval funcall function #[0 "\300\207" [60] 1 #1=""] "Seconds between updates of time in the mode line." :type integer display-time-24hr-format #[0 "\300\207" [nil] 1 #1#] "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] 6)
#@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 (#$ . 3151))
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable display-time-hook funcall function #[0 "\300\207" [nil] 1 ""] "List of functions to be called when the time is updated on the mode line." :type hook] 6)
#@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 (#$ . 3572))
#@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 #[0 "\300\301!\207" [display-time-mode 1] 2 (#$ . 3747) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\306\310\311\312\313\314&\207" [custom-declare-variable display-time-mail-face funcall function #[0 "\300\207" [nil] 1 ""] "Face to use for `display-time-mail-string'.\nIf `display-time-use-mail-icon' is non-nil, the image's\nbackground color is the background of this face.  Set this to\nmake the mail indicator stand out on a color display." :group mode-line-faces display-time :version "22.1" :type (choice (const :tag "None" nil) face)] 12)
#@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))) (#$ . 4602))
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\313\314\306\315&\210\300\316\302\303\317DD\320\306\321%\210\300\322\302\303\323DD\324\306\325%\207" [custom-declare-variable display-time-use-mail-icon funcall function #[0 "\300\207" [nil] 1 #1=""] "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'." :type boolean display-time-mail-string #[0 "\300\207" ["Mail"] 1 #1#] "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 #[0 "\300\207" [nil] 1 #1#] "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 #[0 "\300\207" [((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#) " ")] 1 #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)] 8)
(defalias 'display-time-event-handler #[0 "\302 \210\303 \304
\305H\306H\307HE\310\311H_\312#\313\"\206+\314\315	\"	#\210\316!\207" [display-time-timer 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] 8])
#@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 #[0 "T\211\301U\203\302\303 \207" [display-time-load-average 3 0 display-time-update] 2 (#$ . 7993) nil])
(defalias 'display-time-mail-check-directory #[0 "\301\302\"\303
\203.\211\303U\203.\211\304@!\203#\305@!\306
8\262
\206$\303\\\262

A\262\202\211\303V\2055\211\207" [display-time-mail-directory directory-files t 0 file-regular-p file-attributes 7] 6])
(defalias 'display-time-update--load #[0 "\204\302\207\3031Q	\304_\305 8V\203\302\202O\306\307\305 8\"\310
\311\312O\313\312\314OQ\315\316\317\320\"\321\322\323\324\311U\203>\325\202I\326U\203H\327\202I\330\331Q&\262
0\207\210\302\207" [display-time-load-average display-time-load-average-threshold "" (error) 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"] 11])
(defalias 'display-time-update--mail #[0 "\206\305\306!\206	\307 P\n\203\n \207\203\310 \207\211;\205H\f\203.\311\312\313\f!\"\205H\314 \315!\314 \311\316\317\"\"\205C\320
!\262
\262
\207" [display-time-mail-file rmail-spool-directory display-time-mail-function display-time-mail-directory display-time-server-down-time getenv "MAIL" user-login-name display-time-mail-check-directory time-less-p 1200 time-since current-time display-time-file-nonempty-p 20 time-subtract float-time] 9])
#@195 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 #[0 "\306 \307!\310 \311 	\312\313O\314\f!\315
\312\\\316\246T!'
\316Y\203*\317\202+\320(	\321\322O)	\323\324O*\325!A@+	\326\327O,\330\331\"-	\332\333O.\334.\335\"A/	\336\337O0\340\3411\342#2\343\344!\210.\345\346!\207" [now time load mail 24-hours hour current-time current-time-string display-time-update--load display-time-update--mail 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 all 12-hours am-pm minutes seconds time-zone day year monthname month dayname display-time-string-forms display-time-string] 4 (#$ . 9644)])
#@13 

(fn FILE)
(defalias 'display-time-file-nonempty-p #[257 "\302Z\303
!\205\304\305\306!!\307
8\262
W)\207" [display-time-interval remote-file-name-inhibit-cache 5 file-exists-p 0 file-attributes file-chase-links 7] 5 (#$ . 10745)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable display-time-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Display-Time mode is enabled.\nSee the `display-time-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `display-time-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group display-time] 12)
#@958 Toggle display of time, load level, and mail flag in mode lines.

This is a minor mode.  If called interactively, toggle the
`Display-Time mode' mode.  If the prefix argument is positive, enable
the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='display-time-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

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.

(fn &optional ARG)
(defalias 'display-time-mode #[256 "\306 \307\310\311=\203\312\310!?\202!\247\203 \313W\203 \314\202!\315\"\210\316\300!\2038\317\310\"\312\310!\2038\310B	\203@\320	!\210\314\321\204J\322\f\203n\302>\204\\\323\324\"\325\315'\326#\327 \210\330\331\326\"\210\202s\332\331\326\"\210\333\334\312\310!\203\335\202\200\336\"\210\337\340!\203\250\341\310!\210\306 \203\230\211\306 \232\203\250\342\343\312\310!\203\244\344\202\245\345\321#\210\210\346 \210\312\310!\207" [global-minor-modes display-time-timer display-time-string global-mode-string display-time-default-load-average display-time-load-average current-message set-default display-time-mode toggle default-value 1 nil t boundp delq cancel-timer #1="" (#1#) 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 any customize-mark-as-set message "Display-Time mode %sabled%s" "en" "dis" force-mode-line-update display-time-interval] 6 (#$ . 11536) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar display-time-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\310#\210\317\211\203O\211@\315
N\203H\316
N\204H\303\316\315N#\210
A\266\202\202.\210\320\315\316\321#\210\314\322\323\310#\210\317\211\203~\211@\322
N\203w\323
N\204w\303\323\322N#\210
A\266\202\202]\210\320\322\323\321#\210\314\324\325\310#\210\317\211\203\255\211@\324
N\203\246\325
N\204\246\303\325\324N#\210
A\266\202\202\214\210\320\324\325\321#\210\314\326\327\310#\210\317\211\203\334\211@\326
N\203\325\327
N\204\325\303\327\326N#\210
A\266\202\202\273\210\320\326\327\321#\210\314\330\331\310#\210\317\211\203
\211@\330
N\203
\331
N\204
\303\331\330N#\210
A\266\202\202\352\210\320\330\331\321#\210\332\333\334\310#\210\335\333\334\321#\210\332\336\337\310#\210\335\336\337\321#\210\332\340\341\310#\210\335\340\341\321#\210\342\343\310\344\345\346%\210\347\350\351\352\353DD\354\355\356\357\360&\210\347\361\351\352\362DD\363\355\364\357\360&\210\347\316\351\352\365DD\366\355\367\357\321&\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.)" custom-type hook standard-value nil add-minor-mode display-time-mode boundp defvaralias display-time-world-list world-clock-list (saved-value saved-variable-comment) make-obsolete-variable "28.1" display-time-world-time-format world-clock-time-format display-time-world-buffer-name world-clock-buffer-name display-time-world-timer-enable world-clock-timer-enable display-time-world-timer-second world-clock-timer-second defalias display-time-world-mode world-clock-mode make-obsolete display-time-world-display world-clock-display display-time-world-timer world-clock-update custom-declare-group world-clock "Display a world clock." :group display-time custom-declare-variable zoneinfo-style-world-list funcall function #[0 "\300\207" [(("America/Los_Angeles" "Seattle") ("America/New_York" "New York") ("Europe/London" "London") ("Europe/Paris" "Paris") ("Asia/Calcutta" "Bangalore") ("Asia/Tokyo" "Tokyo"))] 1 #1=""] "Alist of zoneinfo-style time zones and places for `world-clock'.\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." :type (repeat (list string string)) :version "23.1" legacy-style-world-list #[0 "\300\207" [(("PST8PDT" "Seattle") ("EST5EDT" "New York") ("GMT0BST" "London") ("CET-1CDT" "Paris") ("IST-5:30" "Bangalore") ("JST-9" "Tokyo"))] 1 #1#] "Alist of traditional-style time zones and places for `world-clock'.\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)) #[0 "\300\207" [t] 1 #1#] "Alist of time zones and places for `world-clock' 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"))))] 8)
(defalias 'time--display-world-list #[0 "<\203\207\303\304\305\306#\303\304\305\307#

\230\203	\207\n\207" [world-clock-list legacy-style-world-list zoneinfo-style-world-list format-time-string "%z" nil "America/New_York" "Europe/London"] 5])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\320\310\311&\210\300\321\302\303\322DD\323\306\324\310\311&\210\325\326\327\330#\207" [custom-declare-variable world-clock-time-format funcall function #[0 "\300\207" ["%A %d %B %R %Z"] 1 #1=""] "Time format for `world-clock', see `format-time-string'." :type string :version "28.1" world-clock-buffer-name #[0 "\300\207" ["*wclock*"] 1 #1#] "Name of the `world-clock' buffer." world-clock-timer-enable #[0 "\300\207" [t] 1 #1#] "If non-nil, a timer will update the `world-clock' buffer." boolean world-clock-timer-second #[0 "\300\207" [60] 1 #1#] "Interval in seconds for updating the `world-clock' buffer." integer custom-declare-face world-clock-label ((t :inherit font-lock-variable-name-face)) "Face for time zone label in `world-clock' buffer."] 8)
(defvar world-clock-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\207" [make-sparse-keymap define-key "n" next-line "p" previous-line] 5))
(defvar world-clock-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [world-clock-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 world-clock-mode-map definition-name world-clock-mode] 4)
(defvar world-clock-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" [world-clock-mode-abbrev-table world-clock-mode-map variable-documentation put purecopy "Keymap for `world-clock-mode'." boundp world-clock-mode-syntax-table definition-name world-clock-mode (lambda (#1=#:def-tmp-var) (defvar world-clock-mode-syntax-table #1#)) make-syntax-table "Syntax table for `world-clock-mode'." (lambda (#1#) (defvar world-clock-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `world-clock-mode'." derived-mode-parent special-mode] 5)
#@288 Major mode for buffer that displays times in various time zones.
See `world-clock'.

In addition to any hooks its parent mode `special-mode' might have
run, this mode runs the hook `world-clock-mode-hook', as the final or
penultimate step during initialization.

\{world-clock-mode-map}
(defalias 'world-clock-mode #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
=\204R\326
\325C#\210\327!\210\330\f!\210
\306\331!\210\332\333)\334\335!\207" [delay-mode-hooks major-mode mode-name world-clock-mode-map world-clock-mode-syntax-table world-clock-mode-abbrev-table make-local-variable t special-mode world-clock-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 revert-buffer-function world-clock-update nil run-mode-hooks world-clock-mode-hook local-abbrev-table show-trailing-whitespace] 5 (#$ . 20270)])
#@32 The current world clock timer.
(defvar world-clock--timer nil (#$ . 21410))
#@86 Replace current buffer text with times in various zones, based on ALIST.

(fn ALIST)
(defalias 'world-clock-display #[257 "\304\211\305 \306\307\211\310 \210\211\203?\211@\211A@\311
!
\312@#BB\262\211V\2036\211\262\266
A\266\202\202\210\313\314!\315Q\262

\237\211\203d\211@\316\317@\320\321#A#c\210
A\266\202\202J\210\322\323!\210+\266eb\207" [now buffer-undo-list inhibit-read-only world-clock-time-format t current-time 0 nil erase-buffer string-width format-time-string "%-" int-to-string "s %s\n" format propertize face world-clock-label delete-char -1] 16 (#$ . 21492)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias display-time-world world-clock nil make-obsolete "28.1"] 4)
#@211 Display a world clock buffer with times in various time zones.
The variable `world-clock-list' specifies which time zones to use.
To turn off the world time display, go to the window and type `\[quit-window]'.
(defalias 'world-clock #[0 "\304!\211\203\305
!\266\202%\305!\210	\203$\306\307\n\310#\311\312\313\314\307$\210\210\315\316 !\210\317 \210\320 \207" [world-clock-buffer-name world-clock-timer-enable world-clock-timer-second world-clock--timer get-buffer pop-to-buffer run-at-time t world-clock-update add-hook kill-buffer-hook world-clock-cancel-timer nil world-clock-display time--display-world-list world-clock-mode fit-window-to-buffer] 6 (#$ . 22232) nil])
#@31 Cancel the world clock timer.
(defalias 'world-clock-cancel-timer #[0 "\205\301!\210\302\211\207" [world-clock--timer cancel-timer nil] 2 (#$ . 22917)])
#@64 Update the `world-clock' buffer.

(fn &optional ARG NOCONFIRM)
(defalias 'world-clock-update #[512 "\301!\203r\301!q\210`\302\303 !\210\211b\262
)\207\304 \207" [world-clock-buffer-name get-buffer world-clock-display time--display-world-list world-clock-cancel-timer] 5 (#$ . 23081)])
#@286 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".
If the optional argument HERE is non-nil, insert string at
point.

(fn &optional FORMAT HERE)
(defalias 'emacs-uptime #[512 "\301\206\302\303\304!\305\"\"
\203\211c\207\306\307!\203\310\311\"\207\207" [before-init-time format-seconds "%Y, %D, %H, %M, %z%S" time-convert time-since integer called-interactively-p interactive message "%s"] 7 (#$ . 23377) "i\nP"])
#@196 Return a string giving the duration of the Emacs initialization.
FORMAT is a string to format the result, using `format'.  If nil,
the default format "%f seconds" is used.

(fn &optional FORMAT)
(defalias 'emacs-init-time #[256 "\302
\206\303\304\305	\"!\"\306\307!\203\310\311\"\207\207" [after-init-time before-init-time format "%f seconds" float-time time-subtract called-interactively-p interactive message "%s"] 7 (#$ . 23946) nil])
(provide 'time)