diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2013-06-06 10:59:27 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2013-06-06 10:59:27 -0600 |
commit | 5dc5143578a2759611a5856de9bf9d1c7eba9283 (patch) | |
tree | 6ba9065f5c5f86778b7a3b287a69d5bd278e62ad | |
parent | d6a9f1aa295a98faaab2b08c9767d87e26f74342 (diff) | |
download | org-mode-5dc5143578a2759611a5856de9bf9d1c7eba9283.tar.gz |
inline sets org-babel-current-exec-src-block-head
* lisp/ob-lob.el (org-babel-lob-execute): Set the
org-babel-current-exec-src-block-head variable when executing inline
or lob style code.
-rw-r--r-- | lisp/ob-lob.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ob-lob.el b/lisp/ob-lob.el index c779e34..91947f7 100644 --- a/lisp/ob-lob.el +++ b/lisp/ob-lob.el @@ -132,7 +132,8 @@ if so then run the appropriate source block from the Library." (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)))) + (old-hash (when cache-p (org-babel-current-result-hash))) + (org-babel-current-exec-src-block-head (point-marker))) (if (and cache-p (equal new-hash old-hash)) (save-excursion (goto-char (org-babel-where-is-src-block-result)) (forward-line 1) |