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 @@ ...@@ -52,7 +52,7 @@
(let ((repeat (aref timer 4))) (let ((repeat (aref timer 4)))
(cond (cond
((numberp repeat) ((numberp repeat)
(format "%.2f" (/ repeat 60))) (format "%.1f" repeat))
((null repeat) ((null repeat)
"-") "-")
(t (t
...@@ -91,7 +91,18 @@ ...@@ -91,7 +91,18 @@
(setq header-line-format (setq header-line-format
(concat (propertize " " 'display '(space :align-to 0)) (concat (propertize " " 'display '(space :align-to 0))
(format "%4s %10s %8s %s" (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 () (defun timer-list-cancel ()
"Cancel the timer on the line under point." "Cancel the timer on the line under point."
......
...@@ -435,9 +435,9 @@ not contain `d', so that a full listing is expected." ...@@ -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 ;; text. But if the listing is empty, as e.g. in empty
;; directories with -a removed from switches, point will be ;; directories with -a removed from switches, point will be
;; before the inserted text, and dired-insert-directory will ;; before the inserted text, and dired-insert-directory will
;; not indent the listing correctly. Going to the end of the ;; not indent the listing correctly. Getting past the
;; buffer fixes that. ;; inserted text solves this.
(unless files (goto-char (point-max))) (unless (cdr total-line) (forward-line 2))
(if (memq ?R switches) (if (memq ?R switches)
;; List the contents of all directories recursively. ;; List the contents of all directories recursively.
;; cadr of each element of `file-alist' is t for ;; cadr of each element of `file-alist' is t for
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment