* lisp/play/dunnet.el (dun-dos-boot-msg): Fix time. (Bug#20554)
This commit is contained in:
parent
d1b74200da
commit
3903564ed3
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue