diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2014-01-18 13:36:07 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2014-01-18 13:40:57 -0700 |
commit | cd3bc12a29b7a62a23fc408edf9b81573c5c8d19 (patch) | |
tree | 7ae0ea1f4da14acb070d992164a531a7692db512 /lisp/ob-lob.el | |
parent | 93d272b4498d6f2893c1f8583adcf29f350c58bb (diff) |
named and caching call lines working
* lisp/ob-core.el (org-babel-current-result-hash): Additional info
argument so that named call line results may be found.
(org-babel-set-current-result-hash): Additional info argument so
that named call line results may be found.
* lisp/ob-lob.el (org-babel-lob-execute): Passing info to hash finding
functions so that named results may be found.
Diffstat (limited to 'lisp/ob-lob.el')
-rw-r--r-- | lisp/ob-lob.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ob-lob.el b/lisp/ob-lob.el index d08dbf2bb..c93198afc 100644 --- a/lisp/ob-lob.el +++ b/lisp/ob-lob.el @@ -154,17 +154,19 @@ if so then run the appropriate source block from the Library." (cons :c-var (cdr (assoc :var params))) (assq-delete-all :var (copy-tree params)))) (subseq pre-info 3)))))) - (old-hash (when cache-p (org-babel-current-result-hash))) + (old-hash (when cache-p (org-babel-current-result-hash pre-info))) (org-babel-current-src-block-location (point-marker))) (if (and cache-p (equal new-hash old-hash)) - (save-excursion (goto-char (org-babel-where-is-src-block-result)) + (save-excursion (goto-char (org-babel-where-is-src-block-result + nil pre-info)) (forward-line 1) (message "%S" (org-babel-read-result))) (prog1 (let* ((proc-params (org-babel-process-params pre-params)) org-confirm-babel-evaluate) (org-babel-execute-src-block nil (funcall mkinfo proc-params))) ;; update the hash - (when new-hash (org-babel-set-current-result-hash new-hash)))))) + (when new-hash + (org-babel-set-current-result-hash new-hash pre-info)))))) (provide 'ob-lob) |