Protect against errors when operating in temporary code edit buffer

	* ob.el (org-babel-do-in-edit-buffer): Use unwind-protect to
	ensure that edit buffer is exited

1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/ob.el b/lisp/ob.el
index f35eaef..20b0c9a 100644
--- a/lisp/ob.el
+++ b/lisp/ob.el
@@ -511,9 +511,9 @@ with a prefix argument then this is passed on to
 Return t if a code block was found at point, nil otherwise."
   `(let ((org-src-window-setup 'switch-invisibly))
      (when (org-edit-src-code nil nil nil 'quietly)
-       ,@body
-       (if (org-bound-and-true-p org-edit-src-from-org-mode)
-	   (org-edit-src-exit))
+       (unwind-protect (progn ,@body)
+	 (if (org-bound-and-true-p org-edit-src-from-org-mode)
+	     (org-edit-src-exit)))
        t)))
 
 (defun org-babel-do-key-sequence-in-edit-buffer (key)