A hook after org-src-edit-exit

1 files changed, 8 insertions, 0 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-org.el b/emacs/.emacs.d/lisp/my/my-org.el
index 1b99dc5..f02784d 100644
--- a/emacs/.emacs.d/lisp/my/my-org.el
+++ b/emacs/.emacs.d/lisp/my/my-org.el
@@ -79,6 +79,14 @@ With a prefix, insert inactive dates.
   "A :before advice for org-edit-src-exit."
   (delete-trailing-whitespace))
 
+(defun my-org-edit-src-after-exit ()
+  "An :after advice for org-edit-src-exit.
+
+Deactivate mark and move point to after the block."
+  (deactivate-mark)
+  (re-search-forward "^[ \t]*#\\+end_")
+  (beginning-of-line 2))
+
 ;; navigation
 (defun my-org-jump-to-last-visible-child ()
   "Goto the last visible child."