From 3903564ed39bd853bc3aaf61457594dfa285f743 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 11 May 2015 23:46:40 -0700 Subject: [PATCH] * lisp/play/dunnet.el (dun-dos-boot-msg): Fix time. (Bug#20554) --- lisp/play/dunnet.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.11.4.GIT