From 90fc6b987ad8f6531834906749be4d159fc1184f Mon Sep 17 00:00:00 2001 From: "Aaron L. Zeng" Date: Tue, 21 Mar 2023 16:07:54 -0400 Subject: [PATCH] * lisp/savehist.el (savehist-save): Preserve shared structure This avoids ballooning the size of variables that contain large text properties, such as the 'yank-handler' installed by 'evil-yank-rectangle', which contains a list of lines in the string. * lisp/savehist.el (savehist-save): Enable 'print-circle'. (Bug#62364) Copyright-paperwork-exempt: yes --- lisp/savehist.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/savehist.el b/lisp/savehist.el index b532668f8a4..ea8968c771b 100644 --- a/lisp/savehist.el +++ b/lisp/savehist.el @@ -232,8 +232,9 @@ If AUTO-SAVE is non-nil, compare the saved contents to the one last saved, savehist-coding-system)) (run-hooks 'savehist-save-hook) (let ((print-length nil) - (print-level nil) - (print-quoted t)) + (print-level nil) + (print-quoted t) + (print-circle t)) ;; Save the minibuffer histories, along with the value of ;; savehist-minibuffer-history-variables itself. (when savehist-save-minibuffer-history -- 2.39.5