From 1828e9a9b7481572448284a8e5925bf97f2145f7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 23 Apr 2019 17:54:13 -0400 Subject: * lisp/emacs-lisp/timer-list.el: Fix header-line alignment Enable lexical-binding. (cl-print-compiled, cl-print-compiled-button): Declare. (timer-list-mode): Add spacing to align the header. --- lisp/emacs-lisp/timer-list.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'lisp') 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." -- cgit v1.2.1