mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

(emacs-uptime, emacs-init-time): Use float-time rather than time-to-seconds.

Browse Source
This commit is contained in:
Glenn Morris 2009-09-02 03:21:26 +00:00
parent a68366f4da
commit 0d00c61c12
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/time.el
View File

@ -560,7 +560,7 @@ For example, the Unix uptime command format is \"%D, %z%2h:%.2m\"."
(interactive)
(let ((str
(format-seconds (or format "%Y, %D, %H, %M, %z%S")
(time-to-seconds
(float-time
(time-subtract (current-time) before-init-time)))))
(if (interactive-p)
(message "%s" str)
@ -572,7 +572,7 @@ For example, the Unix uptime command format is \"%D, %z%2h:%.2m\"."
(interactive)
(let ((str
(format "%.1f seconds"
(time-to-seconds
(float-time
(time-subtract after-init-time before-init-time)))))
(if (interactive-p)
(message "%s" str)