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

Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2017-12-25 00:14:51 +01:00
parent 2262d0d0c3 b3ddb051e6
commit 57a8dde8e3
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ob-exp.el
View File

@ -58,9 +58,13 @@ returned is the value of the last form in BODY. Assume that
point is at the beginning of the Babel block." point is at the beginning of the Babel block."
(declare (indent 1) (debug body)) (declare (indent 1) (debug body))
`(let ((source (get-text-property (point) 'org-reference))) `(let ((source (get-text-property (point) 'org-reference)))
(with-current-buffer org-babel-exp-reference-buffer ;; Source blocks created during export process (e.g., by other
;; source blocks) are not referenced. In this case, do not move
;; point at all.
(with-current-buffer (if source org-babel-exp-reference-buffer
(current-buffer))
(org-with-wide-buffer (org-with-wide-buffer
(goto-char source) (when source (goto-char source))
,@body)))) ,@body))))
(defun org-babel-exp-src-block () (defun org-babel-exp-src-block ()