save code block location during export

* lisp/ob-exp.el (org-babel-exp-results): Save the code block location into `org-babel-current-exec-src-block-head' during export.
2013-06-08 12:00:53 -06:00 · 2013-06-08 12:00:53 -06:00 · 805d1e63d6
parent 6043de578f
commit 805d1e63d6
1 changed files with 2 additions and 1 deletions
--- a/lisp/ob-exp.el
+++ b/lisp/ob-exp.el
@ -387,7 +387,8 @@ inhibit insertion of results into the buffer."
 		    (org-babel-expand-noweb-references
 		     info (org-babel-exp-get-export-buffer))
 		  (nth 1 info)))
-	  (info (copy-sequence info)))
+	  (info (copy-sequence info))
+	  (org-babel-current-exec-src-block-head (point-marker)))
      ;; skip code blocks which we can't evaluate
      (when (fboundp (intern (concat "org-babel-execute:" lang)))
 	(org-babel-eval-wipe-error-buffer)