From 6cb291a87b79c8b07fb3b0a6ed1773f9b2b660a8 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 19 Aug 2016 16:19:36 +0200 Subject: [PATCH] org-src: Silence byte-compiler --- lisp/org-src.el | 25 ++++++++++++------------- 1 file changed, 12 insertions(+), 13 deletions(-) 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." -- 2.11.4.GIT