tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

set location info parameter for inline src blocks

Browse source 
* 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:
Eric Schulte 2013-11-22 08:18:05 -07:00
parent 060d79f080
commit bbcf17b969
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ob-core.el
View file

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