master f16039b161: Don't mutate literals in tabulated-list-widen-current-column

[Lars Ingebrigtsen]

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

    Don't mutate literals in tabulated-list-widen-current-column
    
    * lisp/emacs-lisp/tabulated-list.el
    (tabulated-list-widen-current-column): Avoid mutating constants
    (bug#53501).
---
 lisp/emacs-lisp/tabulated-list.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/emacs-lisp/tabulated-list.el 
b/lisp/emacs-lisp/tabulated-list.el
index 2defef8107..b740a7457a 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -755,6 +755,9 @@ Interactively, N is the prefix numeric argument, and 
defaults to
                            1))))
           (setq col-nb (1+ col-nb))
         (setq found t)
+        ;; `tabulated-list-format' may be a constant (sharing list
+        ;; structures), so copy it before mutating.
+        (setq tabulated-list-format (copy-tree tabulated-list-format t))
         (setf (cadr (aref tabulated-list-format col-nb))
               (max 1 (+ col-width n)))
         (tabulated-list-print t)