forked from mirrors/org-mode
org-src: Silence byte-compiler
This commit is contained in:
parent
661987e121
commit
6cb291a87b
|
@ -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."
|
||||
|
|
Loading…
Reference in a new issue