diff options
| author | Glenn Morris | 2009-09-02 03:21:26 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-09-02 03:21:26 +0000 |
| commit | 0d00c61c1235fb9e54a8b6b4ef8cbbcc6271da83 (patch) | |
| tree | e8fdf8e733b523b079eaecd4d6ed435446c8f4fe | |
| parent | a68366f4da2cbf3c83e896ae2d8d0b73a84b666a (diff) | |
| download | emacs-0d00c61c1235fb9e54a8b6b4ef8cbbcc6271da83.tar.gz emacs-0d00c61c1235fb9e54a8b6b4ef8cbbcc6271da83.zip | |
(emacs-uptime, emacs-init-time): Use float-time rather than time-to-seconds.
| -rw-r--r-- | lisp/time.el | 4 |
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\"." | |||
| 560 | (interactive) | 560 | (interactive) |
| 561 | (let ((str | 561 | (let ((str |
| 562 | (format-seconds (or format "%Y, %D, %H, %M, %z%S") | 562 | (format-seconds (or format "%Y, %D, %H, %M, %z%S") |
| 563 | (time-to-seconds | 563 | (float-time |
| 564 | (time-subtract (current-time) before-init-time))))) | 564 | (time-subtract (current-time) before-init-time))))) |
| 565 | (if (interactive-p) | 565 | (if (interactive-p) |
| 566 | (message "%s" str) | 566 | (message "%s" str) |
| @@ -572,7 +572,7 @@ For example, the Unix uptime command format is \"%D, %z%2h:%.2m\"." | |||
| 572 | (interactive) | 572 | (interactive) |
| 573 | (let ((str | 573 | (let ((str |
| 574 | (format "%.1f seconds" | 574 | (format "%.1f seconds" |
| 575 | (time-to-seconds | 575 | (float-time |
| 576 | (time-subtract after-init-time before-init-time))))) | 576 | (time-subtract after-init-time before-init-time))))) |
| 577 | (if (interactive-p) | 577 | (if (interactive-p) |
| 578 | (message "%s" str) | 578 | (message "%s" str) |