From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 30 Oct 2020 11:10:48 +0000 (+0100)
Subject: Make list-timers do sub-second times
X-Git-Tag: emacs-28.0.90~5343
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=02ecbf58e460e2d63f489d8e348f3d7d58acee04;p=emacs.git

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