Преглед изворни кода

fixed insertion of trailing newline after code block evaluation

* lisp/ob.el (org-babel-result-end): No longer leaving trailing new
  line after block removal.
Eric Schulte пре 15 година
родитељ
комит
e919c97d7e
1 измењених фајлова са 2 додато и 1 уклоњено
  1. 2 1
      lisp/ob.el

+ 2 - 1
lisp/ob.el

@@ -1527,7 +1527,8 @@ code ---- the results are extracted in the syntax of the source
 	    (blocks-re (regexp-opt
 			(list "latex" "html" "example" "src" "result"))))
 	(if (looking-at (concat "[ \t]*#\\+begin_" blocks-re))
-	    (re-search-forward (concat "[ \t]*#\\+end_" blocks-re) nil t)
+	    (progn (re-search-forward (concat "[ \t]*#\\+end_" blocks-re) nil t)
+		   (forward-char 1))
 	  (while (looking-at "[ \t]*\\(: \\|\\[\\[\\)")
 	    (forward-line 1))))
       (point)))))