From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 25 Jan 2022 13:21:22 +0000 (+0100)
Subject: Don't mutate literals in tabulated-list-widen-current-column
X-Git-Tag: emacs-29.0.90~2758
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f16039b16120abd0b7e1293292f90d69358e0fef;p=emacs.git

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).
---

diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index 2defef81073..b740a7457af 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)