sergiodj/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-09-02 01:35:32 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/timer-list.el: Fix header-line alignment

Browse source 
Enable lexical-binding.
(cl-print-compiled, cl-print-compiled-button): Declare.
(timer-list-mode): Add spacing to align the header.
This commit is contained in:
Stefan Monnier 2019-04-23 17:54:13 -04:00
parent 3d30b651ca
commit 1828e9a9b7
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/timer-list.el
View file

@ -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."