(emacs-init-time): Use format instead of format-seconds.

2 files changed, 7 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17f472cd547..b579d17c124 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-17  Juri Linkov  <juri@jurta.org>
+
+        * time.el (emacs-init-time): Use format instead of format-seconds.
+
 2008-02-17  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>
 
         * textmodes/bibtex.el (bibtex-search-entry): Rename from
diff --git a/lisp/time.el b/lisp/time.el
index 7d0e3ebb1b7..d889a7c7531 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -567,9 +567,9 @@ For example, the Unix uptime command format is \"%D, %z%2h:%.2m\"."
   "Return a string giving the duration of the Emacs initialization."
   (interactive)
   (let ((str
-         (format-seconds "%z%S"
-                         (time-to-seconds
-                          (time-subtract after-init-time before-init-time)))))
+         (format "%.1f seconds"
+                 (time-to-seconds
+                  (time-subtract after-init-time before-init-time)))))
     (if (interactive-p)
         (message "%s" str)
       str)))