diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2013-11-22 08:18:05 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2013-11-22 08:28:29 -0700 |
commit | bbcf17b96920e5c8cfe220e308b96e4f7b4ad9ed (patch) | |
tree | 7e876a0c532e7d51192185c281beedabb76d99e6 | |
parent | 060d79f08078cd98f2be77eeac367affa5c02de9 (diff) | |
download | org-mode-bbcf17b96920e5c8cfe220e308b96e4f7b4ad9ed.tar.gz |
set location info parameter for inline src blocks
* lisp/ob-core.el (org-babel-execute-src-block): Set location info
parameter for inline src blocks.
(org-babel-get-src-block-info): Set location info parameter for
inline src blocks.
-rw-r--r-- | lisp/ob-core.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 3df0f5c..ba69b2c 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -277,6 +277,7 @@ Returns a list (setq name (org-no-properties (match-string 3))))) ;; inline source block (when (org-babel-get-inline-src-block-matches) + (setq head (match-beginning 0)) (setq info (org-babel-parse-inline-src-block-match)))) ;; resolve variable references and add summary parameters (when (and info (not light)) @@ -615,7 +616,10 @@ block." (let* ((org-babel-current-src-block-location (or org-babel-current-src-block-location (nth 6 info) - (org-babel-where-is-src-block-head))) + (org-babel-where-is-src-block-head) + ;; inline src block + (and (org-babel-get-inline-src-block-matches) + (match-beginning 0)))) (info (if info (copy-tree info) (org-babel-get-src-block-info))) |