ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ensure inserted results end in a newline

This commit is contained in:
Eric Schulte 2009-02-23 17:49:51 -08:00
parent 761994643d
commit 488fa39b27
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
litorgy/litorgy.el
View File

@ -149,6 +149,11 @@ form. (language body header-arguments-alist)"
current source block. With optional argument REPLACE replace any current source block. With optional argument REPLACE replace any
existing results currently located after the source block." existing results currently located after the source block."
(if replace (litorgy-remove-result)) (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 (save-excursion
(re-search-forward "^#\\+end_src" nil t) (open-line 1) (forward-char 2) (re-search-forward "^#\\+end_src" nil t) (open-line 1) (forward-char 2)
(let ((beg (point)) (let ((beg (point))