Commit 74489bdc authored by Eli Zaretskii's avatar Eli Zaretskii

Improve the UI of 'list-timers'

* lisp/emacs-lisp/timer-list.el (list-timers): Display both "Next"
and "Repeat" in units of seconds, for consistency.
(timer-list-mode): Add help-echo to column headers.
parent b85d29f4
Pipeline #5085 failed with stage
in 57 minutes and 58 seconds
......@@ -52,7 +52,7 @@
(let ((repeat (aref timer 4)))
((numberp repeat)
(format "%.2f" (/ repeat 60)))
(format "%.1f" repeat))
((null repeat)
......@@ -91,7 +91,18 @@
(setq header-line-format
(concat (propertize " " 'display '(space :align-to 0))
(format "%4s %10s %8s %s"
"Idle" "Next" "Repeat" "Function"))))
(propertize "Idle"
'mouse-face 'highlight
'help-echo "* marks idle timers")
(propertize "Next"
'mouse-face 'highlight
'help-echo "Time in sec till next invocation")
(propertize "Repeat"
'mouse-face 'highlight
'help-echo "Symbol: repeat; number: repeat interval in sec")
(propertize "Function"
'mouse-face 'highlight
'help-echo "Function called by timer")))))
(defun timer-list-cancel ()
"Cancel the timer on the line under point."
......@@ -435,9 +435,9 @@ not contain `d', so that a full listing is expected."
;; text. But if the listing is empty, as e.g. in empty
;; directories with -a removed from switches, point will be
;; before the inserted text, and dired-insert-directory will
;; not indent the listing correctly. Going to the end of the
;; buffer fixes that.
(unless files (goto-char (point-max)))
;; not indent the listing correctly. Getting past the
;; inserted text solves this.
(unless (cdr total-line) (forward-line 2))
(if (memq ?R switches)
;; List the contents of all directories recursively.
;; cadr of each element of `file-alist' is t for
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment