Make list-timers do sub-second times

* lisp/emacs-lisp/timer-list.el (list-timers): Do sub-second times
(bug#39956).

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/emacs-lisp/timer-list.el b/lisp/emacs-lisp/timer-list.el
index 725ca312fca..4bda9acebf7 100644
--- a/lisp/emacs-lisp/timer-list.el
+++ b/lisp/emacs-lisp/timer-list.el
@@ -50,7 +50,7 @@
                                   (aref timer 2)
                                   (aref timer 3))))
                   (format "%12s"
-                          (format-seconds "%dd %hh %mm %z%ss"
+                          (format-seconds "%dd %hh %mm %z%,1ss"
                                           (float-time
                                            (if (aref timer 7)
                                                time
@@ -61,7 +61,8 @@
                  (cond
                   ((numberp repeat)
                    (propertize
-                    (format "%12s" (format-seconds "%dd %hh %mm %z%ss" repeat))
+                    (format "%12s" (format-seconds
+                                    "%dd %hh %mm %z%,1ss" repeat))
                     'help-echo "Repeat interval"))
                   ((null repeat)
                    (propertize "           -" 'help-echo "Runs once"))