From: Juri Linkov <juri@jurta.org>
Date: Sun, 17 Feb 2008 23:11:26 +0000 (+0000)
Subject: (emacs-init-time): Use format instead of format-seconds.
X-Git-Tag: emacs-pretest-23.0.90~7889
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac1efd51d29d4ebe75a4810d68280ce48f65f9f6;p=emacs.git

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

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)))