From: Glenn Morris <rgm@gnu.org>
Date: Tue, 12 May 2015 06:46:40 +0000 (-0700)
Subject: * lisp/play/dunnet.el (dun-dos-boot-msg): Fix time.  (Bug#20554)
X-Git-Tag: emacs-25.0.90~2115
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3903564ed39bd853bc3aaf61457594dfa285f743;p=emacs.git

* lisp/play/dunnet.el (dun-dos-boot-msg): Fix time.  (Bug#20554)
---

diff --git a/lisp/play/dunnet.el b/lisp/play/dunnet.el
index 2f4536c0820..877e5dbea88 100644
--- a/lisp/play/dunnet.el
+++ b/lisp/play/dunnet.el
@@ -3099,7 +3099,7 @@ File not found")))
 (defun dun-dos-boot-msg ()
   (sleep-for 3)
   (dun-mprinc "Current time is ")
-  (dun-mprincl (substring (current-time-string) 12 20))
+  (dun-mprincl (format-time-string "%H:%M:%S"))
   (dun-mprinc "Enter new time: ")
   (dun-read-line)
   (if (not dun-batch-mode)