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

emacs-mirror · May 12, 2015 · 3903564 · 3903564
1 parent d1b7420
commit 3903564
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)