procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix tabulated-list-widen-current-column widening wrong column

Browse source 
* tabulated-list.el (tabulated-list-widen-current-column): Account
for the padding and the content width when calculating column
width (bug#53375).
Copyright-paperwork-exempt: yes
This commit is contained in:
Thuna 2022-01-20 15:22:22 +01:00 • committed by Lars Ingebrigtsen
parent 9cbcfe696f
commit 172c055745
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -731,6 +731,7 @@ Interactively, N is the prefix numeric argument, and defaults to
1."
(interactive "p")
(let ((start (current-column))
(entry (tabulated-list-get-entry))
(nb-cols (length tabulated-list-format))
(col-nb 0)
(total-width 0)
@ -741,9 +742,14 @@ Interactively, N is the prefix numeric argument, and defaults to
(if (> start
(setq total-width
(+ total-width
(setq col-width
(cadr (aref tabulated-list-format
col-nb))))))
(max (setq col-width
(cadr (aref tabulated-list-format
col-nb)))
(string-width (aref entry col-nb)))
(or (plist-get (nthcdr 3 (aref tabulated-list-format
col-nb))
:pad-right)
1))))
(setq col-nb (1+ col-nb))
(setq found t)
(setf (cadr (aref tabulated-list-format col-nb))