diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-26 23:02:20 -0300 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-26 23:02:20 -0300 |
| commit | be15643b64b64e5fcbcdc213c90a5fa9cd41e9df (patch) | |
| tree | c0ad93572654e164ffe3b0ca90c6a80e1ac4c96e /sx-cache.el | |
| parent | a746338150587a400a0fc09a7607341ac10a5159 (diff) | |
| parent | cd72f5f03dcc3490318920ef95fc09b07ae900da (diff) | |
Merge branch 'master' into handle-html-tags
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) |