master c40398e008: Fix widening some columns in tabulated-list-widen-current-column

[Lars Ingebrigtsen]

branch: master
commit c40398e0080a44eac709871f9eb3fca2bb9a1560
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix widening some columns in tabulated-list-widen-current-column
    
    * lisp/emacs-lisp/tabulated-list.el
    (tabulated-list-widen-current-column): Don't bug out on list-based
    columns (bug#53498).
---
 lisp/emacs-lisp/tabulated-list.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/tabulated-list.el 
b/lisp/emacs-lisp/tabulated-list.el
index a242ac1899..2defef8107 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -745,7 +745,10 @@ Interactively, N is the prefix numeric argument, and 
defaults to
                        (max (setq col-width
                                   (cadr (aref tabulated-list-format
                                               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
                                                       col-nb))
                                       :pad-right)