From 4f0f2444772be674aaac06dd0037bf61349062e8 Mon Sep 17 00:00:00 2001 From: Marco Wahl Date: Thu, 19 May 2022 12:20:31 +0200 Subject: [PATCH] Revert "org-src: Add RET to go from overlay to edit buffer" This reverts commit 0d39ea6ef3ee55424a322c38eb6857299dca11f2. --- etc/ORG-NEWS | 2 -- lisp/org-src.el | 7 ------- 2 files changed, 9 deletions(-) diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index ea78234e0..582816534 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -291,8 +291,6 @@ purpose of the variable. The replacement variable accepts =listings= and =verbatim= in place of =t= and =nil= (which still work, but are no longer listed as valid options). -*** New function ~org-edit-src-goto~ - * Version 9.5 ** Important announcements and breaking changes diff --git a/lisp/org-src.el b/lisp/org-src.el index d0a7aedd8..cc4918161 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -413,7 +413,6 @@ END." (overlay-put overlay 'keymap (let ((map (make-sparse-keymap))) (define-key map [mouse-1] 'org-edit-src-continue) - (define-key map [return] #'org-edit-src-goto) map)) (let ((read-only (list @@ -1274,12 +1273,6 @@ Throw an error if there is no such buffer. EVENT is passed to `mouse-set-point'." (interactive "e") (mouse-set-point event) - (org-edit-src-goto)) - -(defun org-edit-src-goto () - "Unconditionally return to buffer editing area under point. -Throw an error if there is no such buffer." - (interactive) (let ((buf (get-char-property (point) 'edit-buffer))) (if buf (org-src-switch-to-buffer buf 'continue) (user-error "No sub-editing buffer for area at point"))))