mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

Add optional FORMAT argument to 'emacs-init-time'

Browse Source 
* lisp/time.el (emacs-init-time): Add optional FORMAT argument
(bug#47306).
This commit is contained in:
Gabriel do Nascimento Ribeiro 2021-03-24 10:34:22 +01:00 committed by Lars Ingebrigtsen
parent 50512e36c7
commit 88fdc4945a
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/time.el
View File

@ -614,13 +614,14 @@ point."
str))))
;;;###autoload
(defun emacs-init-time ()
"Return a string giving the duration of the Emacs initialization."
(defun emacs-init-time (&optional format)
"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."
(interactive)
(let ((str
(format "%s seconds"
(float-time
(time-subtract after-init-time before-init-time)))))
(let ((str (format (or format "%f seconds")
(float-time (time-subtract after-init-time
before-init-time)))))
(if (called-interactively-p 'interactive)
(message "%s" str)
str)))