branch: externals/persist
commit 66e6c594f71ab8cf7d0bbec7f6fd07b679b8106c
Author: Felipe Lema <felipel...@mortemale.org>
Commit: Lars Ingebrigtsen <la...@gnus.org>
Ensure that we're saving complete data structures
* persist.el (persist-save): Ensure that we're writing out
complete Lisp values (bug#50246).
---
persist.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/persist.el b/persist.el
index 091e428..3d8d1af 100644
--- a/persist.el
+++ b/persist.el
@@ -140,7 +140,13 @@ variables persist automatically when Emacs exits."
(unless (file-exists-p dir-loc)
(mkdir dir-loc)))
(with-temp-buffer
- (print (symbol-value symbol) (current-buffer))
+ (let (print-level
+ print-length
+ print-quoted
+ (print-escape-control-characters t)
+ (print-escape-nonascii t)
+ (print-circle t))
+ (print (symbol-value symbol) (current-buffer)))
(write-region (point-min) (point-max)
(persist--file-location symbol)
nil 'quiet))))
