From 8e58c635ed248e89481671f6212691bd2859784a Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 17 Aug 2016 23:37:55 +0200 Subject: [PATCH] org-src: Move function within library * lisp/org-src.el (org-src-do-at-code-block): Move function definition out of Babel related section. --- lisp/org-src.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/org-src.el b/lisp/org-src.el index 45e36078d..6dceabf1f 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -645,15 +645,6 @@ See also `org-src-mode-hook'." (add-hook 'org-src-mode-hook #'org-src-babel-configure-edit-buffer) -(defmacro org-src-do-at-code-block (&rest body) - "Execute a command from an edit buffer in the Org mode buffer." - `(let ((beg-marker org-src--beg-marker)) - (when beg-marker - (with-current-buffer (marker-buffer beg-marker) - (goto-char beg-marker) - ,@body)))) -(def-edebug-spec org-src-do-at-code-block (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 @@ -682,6 +673,15 @@ Org-babel commands." ;;; 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."