summaryrefslogtreecommitdiff
path: root/lisp/time.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2009-09-02 03:21:26 +0000
committerGlenn Morris <rgm@gnu.org>2009-09-02 03:21:26 +0000
commit0d00c61c1235fb9e54a8b6b4ef8cbbcc6271da83 (patch)
treee8fdf8e733b523b079eaecd4d6ed435446c8f4fe /lisp/time.el
parenta68366f4da2cbf3c83e896ae2d8d0b73a84b666a (diff)
downloademacs-0d00c61c1235fb9e54a8b6b4ef8cbbcc6271da83.tar.gz
(emacs-uptime, emacs-init-time): Use float-time rather than time-to-seconds.
Diffstat (limited to 'lisp/time.el')
-rw-r--r--lisp/time.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/time.el b/lisp/time.el
index 1d0b951e4a4..2ff840db762 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -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)