浏览代码

remove leading newline when removing a result

  This fixes a number of new test failures

* lisp/ob-core.el (org-babel-remove-result): Remove leading newline
  when removing a result.
Eric Schulte 11 年之前
父节点
当前提交
01467ae083
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      lisp/ob-core.el

+ 1 - 1
lisp/ob-core.el

@@ -2168,7 +2168,7 @@ code ---- the results are extracted in the syntax of the source
         (goto-char location)
 	(when (looking-at (concat org-babel-result-regexp ".*$"))
 	  (delete-region
-	   (if keep-keyword (1+ (match-end 0)) (match-beginning 0))
+	   (if keep-keyword (1+ (match-end 0)) (1- (match-beginning 0)))
 	   (progn (forward-line 1) (org-babel-result-end))))))))
 
 (defun org-babel-result-end ()