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

Fix widening some columns in tabulated-list-widen-current-column

Browse source 
* lisp/emacs-lisp/tabulated-list.el
(tabulated-list-widen-current-column): Don't bug out on list-based
columns (bug#53498).
This commit is contained in:
Lars Ingebrigtsen 2022-01-25 13:58:30 +01:00
parent 44ffd6a825
commit c40398e008
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -745,7 +745,10 @@ Interactively, N is the prefix numeric argument, and defaults to
(max (setq col-width (max (setq col-width
(cadr (aref tabulated-list-format (cadr (aref tabulated-list-format
col-nb))) col-nb)))
(string-width (aref entry col-nb))) (let ((desc (aref entry col-nb)))
(string-width (if (stringp desc)
desc
(car desc)))))
(or (plist-get (nthcdr 3 (aref tabulated-list-format (or (plist-get (nthcdr 3 (aref tabulated-list-format
col-nb)) col-nb))
:pad-right) :pad-right)