|
@@ -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)
|