diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-10-30 12:10:48 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-10-30 12:10:53 +0100 |
| commit | 02ecbf58e460e2d63f489d8e348f3d7d58acee04 (patch) | |
| tree | 59749bd7202071ac6a84f78465e470bacb2020bc /lisp/emacs-lisp | |
| parent | 617f70bc7d6402872faa7621ce20fd3a573518b8 (diff) | |
| download | emacs-02ecbf58e460e2d63f489d8e348f3d7d58acee04.tar.gz emacs-02ecbf58e460e2d63f489d8e348f3d7d58acee04.tar.bz2 emacs-02ecbf58e460e2d63f489d8e348f3d7d58acee04.zip | |
Make list-timers do sub-second times
* lisp/emacs-lisp/timer-list.el (list-timers): Do sub-second times
(bug#39956).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/timer-list.el | 5 |
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")) |