Make list-timers do sub-second times

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

diff --git a/lisp/emacs-lisp/timer-list.el b/lisp/emacs-lisp/timer-list.el
index 725ca312fcabf9e3c2f14570ee05391280b414b6..4bda9acebf7c89acda99b8e23f9d97eefdbcc3a3 100644 (file)
--- 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"))