From 0284bc9d4d9feaf9506dd6e3752c8c699f54afe6 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Wed, 27 Feb 2013 10:24:04 +0100 Subject: [PATCH] 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. --- lisp/ob-lob.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/ob-lob.el b/lisp/ob-lob.el index 2fcebcfeb..df967c894 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)))