org-src.el (org-edit-src-exit): Fix bug when saving an empty source buffer

* org-src.el (org-edit-src-exit): Fix bug when saving an empty
source buffer.

Thanks to Hsiu-Khuern Tang for reporting this.

1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/org-src.el b/lisp/org-src.el
index 2a7c272..b4d4c04 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -689,9 +689,10 @@ with \",*\", \",#+\", \",,*\" and \",,#+\"."
       (kill-buffer buffer))
     (goto-char beg)
     (when allow-write-back-p
-      (delete-region beg (1- end))
-      (insert code)
-      (delete-char 1)
+      (delete-region beg (max beg (1- end)))
+      (unless (string-match "^[ \t]*$" code)
+	(insert code)
+	(delete-char 1))
       (goto-char beg)
       (if single (just-one-space)))
     (if (memq t (mapcar (lambda (overlay)