diff options
author | Bastien Guerry <bzg@altern.org> | 2013-02-27 10:24:04 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-02-27 10:24:04 +0100 |
commit | 0284bc9d4d9feaf9506dd6e3752c8c699f54afe6 (patch) | |
tree | 99baab4773363cd5c3190ede486acdd39d01956f | |
parent | 7c8e854d9c3c2f10e3ce8305316ec7fbc58a7458 (diff) | |
download | org-mode-0284bc9d4d9feaf9506dd6e3752c8c699f54afe6.tar.gz |
ob-lob.el (org-babel-lob-execute): Rename cache? to cache-p
* ob-lob.el (org-babel-lob-execute): Rename cache? to cache-p.
Thanks to Achim for pointing this.
-rw-r--r-- | lisp/ob-lob.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ob-lob.el b/lisp/ob-lob.el index 2fcebcf..df967c8 100644 --- a/lisp/ob-lob.el +++ b/lisp/ob-lob.el @@ -127,11 +127,11 @@ if so then run the appropriate source block from the Library." (concat ":var results=" (mapconcat #'identity (butlast info) " ")))))) (pre-info (funcall mkinfo pre-params)) - (cache? (and (cdr (assoc :cache pre-params)) - (string= "yes" (cdr (assoc :cache pre-params))))) - (new-hash (when cache? (org-babel-sha1-hash pre-info))) - (old-hash (when cache? (org-babel-current-result-hash)))) - (if (and cache? (equal new-hash old-hash)) + (cache-p (and (cdr (assoc :cache pre-params)) + (string= "yes" (cdr (assoc :cache pre-params))))) + (new-hash (when cache-p (org-babel-sha1-hash pre-info))) + (old-hash (when cache-p (org-babel-current-result-hash)))) + (if (and cache-p (equal new-hash old-hash)) (save-excursion (goto-char (org-babel-where-is-src-block-result)) (forward-line 1) (message "%S" (org-babel-read-result))) |