master 74489bd: Improve the UI of 'list-timers'

[Eli Zaretskii]

branch: master
commit 74489bdcb663722b1747f6a3f81f1f111c751f04
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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.
---
 lisp/emacs-lisp/timer-list.el | 15 +++++++++++++--
 lisp/ls-lisp.el               |  6 +++---
 2 files changed, 16 insertions(+), 5 deletions(-)

diff --git a/lisp/emacs-lisp/timer-list.el b/lisp/emacs-lisp/timer-list.el
index 4fa31f3..4cebd73 100644
--- a/lisp/emacs-lisp/timer-list.el
+++ b/lisp/emacs-lisp/timer-list.el
@@ -52,7 +52,7 @@
                       (let ((repeat (aref timer 4)))
                         (cond
                          ((numberp repeat)
-                          (format "%.2f" (/ repeat 60)))
+                          (format "%.1f" repeat))
                          ((null repeat)
                           "-")
                          (t
@@ -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."
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 2952242..8851522 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -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