mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:36:26 +00:00
Revert "org-src: Add RET to go from overlay to edit buffer"
This reverts commit 0d39ea6ef3
.
This commit is contained in:
parent
0d39ea6ef3
commit
4f0f244477
|
@ -291,8 +291,6 @@ purpose of the variable. The replacement variable
|
||||||
accepts =listings= and =verbatim= in place of =t= and =nil= (which
|
accepts =listings= and =verbatim= in place of =t= and =nil= (which
|
||||||
still work, but are no longer listed as valid options).
|
still work, but are no longer listed as valid options).
|
||||||
|
|
||||||
*** New function ~org-edit-src-goto~
|
|
||||||
|
|
||||||
* Version 9.5
|
* Version 9.5
|
||||||
|
|
||||||
** Important announcements and breaking changes
|
** Important announcements and breaking changes
|
||||||
|
|
|
@ -413,7 +413,6 @@ END."
|
||||||
(overlay-put overlay 'keymap
|
(overlay-put overlay 'keymap
|
||||||
(let ((map (make-sparse-keymap)))
|
(let ((map (make-sparse-keymap)))
|
||||||
(define-key map [mouse-1] 'org-edit-src-continue)
|
(define-key map [mouse-1] 'org-edit-src-continue)
|
||||||
(define-key map [return] #'org-edit-src-goto)
|
|
||||||
map))
|
map))
|
||||||
(let ((read-only
|
(let ((read-only
|
||||||
(list
|
(list
|
||||||
|
@ -1274,12 +1273,6 @@ Throw an error if there is no such buffer.
|
||||||
EVENT is passed to `mouse-set-point'."
|
EVENT is passed to `mouse-set-point'."
|
||||||
(interactive "e")
|
(interactive "e")
|
||||||
(mouse-set-point event)
|
(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)))
|
(let ((buf (get-char-property (point) 'edit-buffer)))
|
||||||
(if buf (org-src-switch-to-buffer buf 'continue)
|
(if buf (org-src-switch-to-buffer buf 'continue)
|
||||||
(user-error "No sub-editing buffer for area at point"))))
|
(user-error "No sub-editing buffer for area at point"))))
|
||||||
|
|
Loading…
Reference in a new issue