diff options
author | Aaron L. Zeng <azeng@janestreet.com> | 2023-03-21 16:07:54 -0400 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2023-03-25 15:12:30 +0300 |
commit | 90fc6b987ad8f6531834906749be4d159fc1184f (patch) | |
tree | fb3c94dd9de1e7aa8d65648c10c957426ccdf98a /lisp/savehist.el | |
parent | 08fbc133756be38c02f04f64dbe0e2c9c1d0f228 (diff) | |
download | emacs-90fc6b987ad8f6531834906749be4d159fc1184f.tar.gz |
* 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
Diffstat (limited to 'lisp/savehist.el')
-rw-r--r-- | lisp/savehist.el | 5 |
1 files 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 |