瀏覽代碼

Ensure correct order for empty result wrapping blocks.

* lisp/ob.el (org-babel-insert-result): Ensure correct order for empty
  result wrapping blocks.
Eric Schulte 13 年之前
父節點
當前提交
d5e21f43fc
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      lisp/ob.el

+ 2 - 2
lisp/ob.el

@@ -1835,9 +1835,9 @@ code ---- the results are extracted in the syntax of the source
 	(setq results-switches
 	      (if results-switches (concat " " results-switches) ""))
 	(flet ((wrap (start finish)
-		     (goto-char beg) (insert (concat start "\n"))
 		     (goto-char end) (insert (concat finish "\n"))
-		     (setq end (point-marker)))
+		     (goto-char beg) (insert (concat start "\n"))
+		     (goto-char end) (setq end (point-marker)))
 	       (proper-list-p (it) (and (listp it) (null (cdr (last it))))))
 	  ;; insert results based on type
 	  (cond