[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 1828e9a: * lisp/emacs-lisp/timer-list.el: Fix heade
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 1828e9a: * lisp/emacs-lisp/timer-list.el: Fix header-line alignment |
Date: |
Tue, 23 Apr 2019 17:54:18 -0400 (EDT) |
branch: master
commit 1828e9a9b7481572448284a8e5925bf97f2145f7
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* 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(-)
diff --git a/lisp/emacs-lisp/timer-list.el b/lisp/emacs-lisp/timer-list.el
index 81e2f91..55aa56b 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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 1828e9a: * lisp/emacs-lisp/timer-list.el: Fix header-line alignment,
Stefan Monnier <=