diff options
Diffstat (limited to 'lisp/emacs-lisp/timer-list.el')
| -rw-r--r-- | lisp/emacs-lisp/timer-list.el | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/lisp/emacs-lisp/timer-list.el b/lisp/emacs-lisp/timer-list.el index c9b2fae7d91..55aa56b72e0 100644 --- a/lisp/emacs-lisp/timer-list.el +++ b/lisp/emacs-lisp/timer-list.el @@ -1,4 +1,4 @@ -;;; timer-list.el --- list active timers in a buffer +;;; timer-list.el --- list active timers in a buffer -*- lexical-binding:t -*- ;; Copyright (C) 2016-2019 Free Software Foundation, Inc. @@ -24,6 +24,9 @@ ;;; Code: +(defvar cl-print-compiled) +(defvar cl-print-compiled-button) + ;;;###autoload (defun list-timers (&optional _ignore-auto _nonconfirm) "List all timers in a buffer." @@ -37,16 +40,14 @@ ;; Idle. (if (aref timer 7) "*" " ") ;; Next time. - (let ((time (float-time (list (aref timer 1) - (aref timer 2) - (aref timer 3))))) + (let ((time (list (aref timer 1) + (aref timer 2) + (aref timer 3)))) (format "%.2f" - (if (aref timer 7) - time - (- (float-time (list (aref timer 1) - (aref timer 2) - (aref timer 3))) - (float-time))))) + (float-time + (if (aref timer 7) + time + (time-subtract time nil))))) ;; Repeat. (let ((repeat (aref timer 4))) (cond @@ -87,8 +88,9 @@ (setq-local revert-buffer-function #'list-timers) (setq buffer-read-only t) (setq header-line-format - (format "%4s %10s %8s %s" - "Idle" "Next" "Repeat" "Function"))) + (concat (propertize " " 'display '(space :align-to 0)) + (format "%4s %10s %8s %s" + "Idle" "Next" "Repeat" "Function")))) (defun timer-list-cancel () "Cancel the timer on the line under point." |