|
@@ -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)))
|