mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

; Fix last change

Browse source 
* lisp/emacs-lisp/tabulated-list.el
(tabulated-list-line-number-width): Fix last change.
This commit is contained in:
Eli Zaretskii 2017-08-19 13:52:02 +03:00
parent 1e2fbb5e63
commit 5070717802
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/tabulated-list.el
View file

@ -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))