diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-01-29 13:36:40 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-01-29 13:36:40 -0200 |
| commit | 2c9e84e67a54c163fd194194dc2a4f0266336cc9 (patch) | |
| tree | 636a3842969001ead45b82da66f8b35017fd4258 /sx-cache.el | |
| parent | a46831ad0d5458c90a9e04dd89b713530747408d (diff) | |
| parent | f8710a5c08185efca16fb552a3d58893282d320e (diff) | |
Merge pull request #245 from vermiculus/issue-244--cache-print-depth
Ensure printing of full data structure for cache
Diffstat (limited to 'sx-cache.el')
| -rw-r--r-- | sx-cache.el | 5 |
1 files changed, 3 insertions, 2 deletions
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) |