diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-25 13:58:30 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-25 13:58:30 +0100 |
| commit | c40398e0080a44eac709871f9eb3fca2bb9a1560 (patch) | |
| tree | 82f5bb6fe8e15eea92d0886053a7c31d6238bfb7 /lisp/emacs-lisp | |
| parent | 44ffd6a825300fec5e492805bb105d2c8c3d0c1c (diff) | |
| download | emacs-c40398e0080a44eac709871f9eb3fca2bb9a1560.tar.gz emacs-c40398e0080a44eac709871f9eb3fca2bb9a1560.tar.bz2 emacs-c40398e0080a44eac709871f9eb3fca2bb9a1560.zip | |
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).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 5 |
1 files changed, 4 insertions, 1 deletions
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) |