diff --git a/lisp/org-src.el b/lisp/org-src.el index fd60bde22..ab23b4ac6 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -645,6 +645,18 @@ See also `org-src-mode-hook'." (add-hook 'org-src-mode-hook #'org-src-babel-configure-edit-buffer) + +;;; Public API + +(defmacro org-src-do-at-code-block (&rest body) + "Execute BODY from an edit buffer in the Org mode buffer." + (declare (debug (body))) + `(let ((beg-marker org-src--beg-marker)) + (when beg-marker + (with-current-buffer (marker-buffer beg-marker) + (goto-char beg-marker) + ,@body)))) + (defun org-src-do-key-sequence-at-code-block (&optional key) "Execute key sequence at code block in the source Org buffer. The command bound to KEY in the Org-babel key map is executed @@ -669,19 +681,6 @@ Org-babel commands." (org-src-do-at-code-block (call-interactively (lookup-key org-babel-map key))))) - - -;;; Public functions - -(defmacro org-src-do-at-code-block (&rest body) - "Execute BODY from an edit buffer in the Org mode buffer." - (declare (debug (body))) - `(let ((beg-marker org-src--beg-marker)) - (when beg-marker - (with-current-buffer (marker-buffer beg-marker) - (goto-char beg-marker) - ,@body)))) - (defun org-src-edit-buffer-p (&optional buffer) "Non-nil when current buffer is a source editing buffer. If BUFFER is non-nil, test it instead."