From f8710a5c08185efca16fb552a3d58893282d320e Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Wed, 28 Jan 2015 16:53:55 -0600 Subject: Ensure printing of full data structure for cache Bind `print-{depth,level}' to nil before writing to the file. This should force `prin1' to spell out the entire data structure. Should fix #244. --- sx-cache.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'sx-cache.el') diff --git a/sx-cache.el b/sx-cache.el index 3e8e08f..b17149f 100644 --- a/sx-cache.el +++ b/sx-cache.el @@ -73,8 +73,9 @@ DATA will be written as returned by `prin1'. CACHE is resolved to a file name by `sx-cache-get-file-name'." (sx-cache--ensure-sx-cache-directory-exists) - (write-region (prin1-to-string data) nil - (sx-cache-get-file-name cache)) + (let (print-length print-level) + (write-region (prin1-to-string data) nil + (sx-cache-get-file-name cache))) data) (defun sx-cache--invalidate (cache &optional vars init-method) -- cgit v1.2.3