tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-src.el (org-edit-src-exit): Fix editing source section with blank lines

Browse source 
* org-src.el (org-edit-src-exit): Fix editing source section
with blank lines.

TINYCHANGE

This bug was introduced by commit aba9e2b9.
This commit is contained in:
Le Wang 2012-10-29 06:37:41 +01:00 committed by Bastien Guerry
parent d0dd2a5308
commit d22e732d7a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/org-src.el
View file

@ -690,7 +690,7 @@ with \",*\", \",#+\", \",,*\" and \",,#+\"."
(goto-char beg) (goto-char beg)
(when allow-write-back-p (when allow-write-back-p
(delete-region beg (max beg (1- end))) (delete-region beg (max beg (1- end)))
(unless (string-match "^[ \t]*$" code) (unless (string-match "\\`[ \t]*\\'" code)
(insert code) (insert code)
(delete-char 1)) (delete-char 1))
(goto-char beg) (goto-char beg)