forked from mirrors/org-mode
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.
This commit is contained in:
parent
060d79f080
commit
bbcf17b969
|
@ -277,6 +277,7 @@ Returns a list
|
||||||
(setq name (org-no-properties (match-string 3)))))
|
(setq name (org-no-properties (match-string 3)))))
|
||||||
;; inline source block
|
;; inline source block
|
||||||
(when (org-babel-get-inline-src-block-matches)
|
(when (org-babel-get-inline-src-block-matches)
|
||||||
|
(setq head (match-beginning 0))
|
||||||
(setq info (org-babel-parse-inline-src-block-match))))
|
(setq info (org-babel-parse-inline-src-block-match))))
|
||||||
;; resolve variable references and add summary parameters
|
;; resolve variable references and add summary parameters
|
||||||
(when (and info (not light))
|
(when (and info (not light))
|
||||||
|
@ -615,7 +616,10 @@ block."
|
||||||
(let* ((org-babel-current-src-block-location
|
(let* ((org-babel-current-src-block-location
|
||||||
(or org-babel-current-src-block-location
|
(or org-babel-current-src-block-location
|
||||||
(nth 6 info)
|
(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
|
(info (if info
|
||||||
(copy-tree info)
|
(copy-tree info)
|
||||||
(org-babel-get-src-block-info)))
|
(org-babel-get-src-block-info)))
|
||||||
|
|
Loading…
Reference in a new issue