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

This commit is contained in:
Glenn Morris 2015-05-11 23:46:40 -07:00
parent d1b74200da
commit 3903564ed3

View file

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