Browse Source

org-src: Silence byte-compiler

Nicolas Goaziou 9 years ago
parent
commit
6cb291a87b
1 changed files with 12 additions and 13 deletions
  1. 12 13
      lisp/org-src.el

+ 12 - 13
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)
 (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)
 (defun org-src-do-key-sequence-at-code-block (&optional key)
   "Execute key sequence at code block in the source Org buffer.
   "Execute key sequence at code block in the source Org buffer.
 The command bound to KEY in the Org-babel key map is executed
 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
     (org-src-do-at-code-block
      (call-interactively (lookup-key org-babel-map key)))))
      (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)
 (defun org-src-edit-buffer-p (&optional buffer)
   "Non-nil when current buffer is a source editing buffer.
   "Non-nil when current buffer is a source editing buffer.
 If BUFFER is non-nil, test it instead."
 If BUFFER is non-nil, test it instead."