summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/timer-list.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/emacs-lisp/timer-list.el')
-rw-r--r--lisp/emacs-lisp/timer-list.el10
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/timer-list.el b/lisp/emacs-lisp/timer-list.el
index 81e2f91c0e5..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."
@@ -85,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."