[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 5070717: ; Fix last change
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] master 5070717: ; Fix last change |
Date: |
Sat, 19 Aug 2017 06:52:50 -0400 (EDT) |
branch: master
commit 5070717802d9be51085d187a10a5f4930b9a1471
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>
; Fix last change
* lisp/emacs-lisp/tabulated-list.el
(tabulated-list-line-number-width): Fix last change.
---
lisp/emacs-lisp/tabulated-list.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/emacs-lisp/tabulated-list.el
b/lisp/emacs-lisp/tabulated-list.el
index a0a74ce..f900354 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -195,7 +195,7 @@ Populated by `tabulated-list-init-header'.")
(if (window-live-p cbuf-window)
(with-selected-window cbuf-window
(+ (line-number-display-width) 2))
- 4)))
+ (if display-line-numbers 4 0))))
(defun tabulated-list-init-header ()
"Set up header line for the Tabulated List buffer."
@@ -422,11 +422,12 @@ of column descriptors."
(let ((beg (point))
(x (max tabulated-list-padding 0))
(ncols (length tabulated-list-format))
+ (lnum-width (tabulated-list-line-number-width))
(inhibit-read-only t))
(if display-line-numbers
- (setq x (+ x (tabulated-list-line-number-width))))
+ (setq x (+ x lnum-width)))
(if (> tabulated-list-padding 0)
- (insert (make-string x ?\s)))
+ (insert (make-string (- x lnum-width) ?\s)))
(let ((tabulated-list--near-rows ; Bind it if not bound yet (Bug#25506).
(or (bound-and-true-p tabulated-list--near-rows)
(list (or (tabulated-list-get-entry (point-at-bol 0))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 5070717: ; Fix last change,
Eli Zaretskii <=