ensure inserted results end in a newline

2009-02-23 17:49:51 -08:00 · 2009-02-23 17:49:51 -08:00 · 488fa39b27
parent 761994643d
commit 488fa39b27
1 changed files with 5 additions and 0 deletions
--- a/litorgy/litorgy.el
+++ b/litorgy/litorgy.el
@ -149,6 +149,11 @@ form.  (language body header-arguments-alist)"
 current source block.  With optional argument REPLACE replace any
 existing results currently located after the source block."
  (if replace (litorgy-remove-result))
+  (unless (or (string-equal (substring result -1)
+                            "\n")
+              (string-equal (substring result -1)
+                            "\r"))
+    (setq result (concat result "\n")))
  (save-excursion
    (re-search-forward "^#\\+end_src" nil t) (open-line 1) (forward-char 2)
    (let ((beg (point))