Commit 1828e9a9 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* 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.
parent 3d30b651
Pipeline #1430 passed with stage
in 62 minutes and 31 seconds
;;; 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)
(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."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment