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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17f472cd547d1b846fff6a3ecfeb59b06d7dbde4..b579d17c124b3a7ed9bd334e8357159e156ecc06 100644 (file)
--- 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 7d0e3ebb1b7ec21b96535986ee746da9b3740368..d889a7c7531278fc7b1bb194e375ab1e8b8e35e1 100644 (file)
--- 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)))