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

* 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

View file

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