diff options
| author | Stephen Berman <stephen.berman@gmx.net> | 2020-11-04 23:52:21 +0100 |
|---|---|---|
| committer | Stephen Berman <stephen.berman@gmx.net> | 2020-11-04 23:52:21 +0100 |
| commit | 233d350d1984bcb4e0f636ddfa29482b815fa2f2 (patch) | |
| tree | 4b49df4b5b339a347bd9fba187de7f7771681dce /lisp/emacs-lisp/timer-list.el | |
| parent | 1c9500da6615ecaa6e7a5029e0f5d0200d66e7ef (diff) | |
| download | emacs-233d350d1984bcb4e0f636ddfa29482b815fa2f2.tar.gz emacs-233d350d1984bcb4e0f636ddfa29482b815fa2f2.tar.bz2 emacs-233d350d1984bcb4e0f636ddfa29482b815fa2f2.zip | |
Improve display of tabulated list header line labels (bug#44068)
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-init-header):
Ensure sort indicator appears after the label of any selected
sortable column that is wide enough and enable label truncation
when narrowing a column.
* lisp/emacs-lisp/timer-list.el (timer-list-mode): Improve column
alignment.
(timer-list--function-predicate): Correct typo in doc string.
Diffstat (limited to 'lisp/emacs-lisp/timer-list.el')
| -rw-r--r-- | lisp/emacs-lisp/timer-list.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/timer-list.el b/lisp/emacs-lisp/timer-list.el index 4bda9acebf7..024f0030629 100644 --- a/lisp/emacs-lisp/timer-list.el +++ b/lisp/emacs-lisp/timer-list.el @@ -95,8 +95,8 @@ (setq-local revert-buffer-function #'list-timers) (setq tabulated-list-format '[("Idle" 6 timer-list--idle-predicate) - (" Next" 12 timer-list--next-predicate) - (" Repeat" 12 timer-list--repeat-predicate) + ("Next" 12 timer-list--next-predicate :right-align t :pad-right 1) + ("Repeat" 12 timer-list--repeat-predicate :right-align t :pad-right 1) ("Function" 10 timer-list--function-predicate)])) (defun timer-list--idle-predicate (A B) @@ -121,7 +121,7 @@ (string< rA rB))) (defun timer-list--function-predicate (A B) - "Predicate to sort Timer-List by the Next column." + "Predicate to sort Timer-List by the Function column." (let ((fA (aref (cadr A) 3)) (fB (aref (cadr B) 3))) (string< fA fB))) |