From c40398e0080a44eac709871f9eb3fca2bb9a1560 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 25 Jan 2022 13:58:30 +0100 Subject: [PATCH] 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 a242ac1899d..2defef81073 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) -- 2.39.2