From f16039b16120abd0b7e1293292f90d69358e0fef Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 25 Jan 2022 14:21:22 +0100 Subject: [PATCH] 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 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) -- 2.39.5