From b2e59bb1f230267ec5257582478117737cc10049 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Thu, 20 Nov 2014 20:46:52 -0600 Subject: GitHub comments -- #77 --- sx-cache.el | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'sx-cache.el') diff --git a/sx-cache.el b/sx-cache.el index 049e171..9f152e2 100644 --- a/sx-cache.el +++ b/sx-cache.el @@ -47,7 +47,6 @@ (defun sx-cache-get (cache &optional form) "Return the data within CACHE. - If CACHE does not exist, use `sx-cache-set' to set CACHE to the result of evaluating FORM. @@ -64,8 +63,7 @@ CACHE is resolved to a file name by `sx-cache-get-file-name'." (sx-cache-set cache (eval form))))) (defun sx-cache-set (cache data) - "Set the content of CACHE to DATA and save changes permanently. - + "Set the content of CACHE to DATA and save. DATA will be written as returned by `prin1'. CACHE is resolved to a file name by `sx-cache-get-file-name'." @@ -86,10 +84,8 @@ re-initialize the cache." (defun sx-cache-invalidate-all (&optional save-auth) "Invalidate all caches using `sx-cache--invalidate'. - -Afterwards reinitialize caches using `sx-initialize'. - -If SAVE-AUTH is non-nil, do not clear AUTH cache." +Afterwards reinitialize caches using `sx-initialize'. If +SAVE-AUTH is non-nil, do not clear AUTH cache." (let ((caches (let ((default-directory sx-cache-directory)) (file-expand-wildcards "*.el")))) (when save-auth -- cgit v1.2.3