babel: declaring functions and variables for the compiler

lisp/babel/langs/ob-emacs-lisp.el

@@ -39,6 +39,12 @@
   '((:hlines . "yes") (:colnames . "no"))
   "Default arguments to use when evaluating an emacs-lisp source block.")
 
+(declare-function org-babel-comint-with-output "ob-comint" (&rest body))
+(declare-function org-babel-comint-buffer-livep "ob-comint" (buffer))
+(declare-function org-babel-comint-wait-for-output "ob-comint" (buffer))
+(declare-function org-babel-comint-in-buffer "ob-comint" (buffer &rest body))
+(declare-function orgtbl-to-generic "org-table" (table params))
+
 (defun org-babel-expand-body:emacs-lisp (body params &optional processed-params)
   "Expand BODY according to PARAMS, return the expanded body."
   (let* ((processed-params (or processed-params (org-babel-process-params params)))

lisp/babel/ob-exp.el

@@ -58,6 +58,12 @@ will be indented by this many characters. See
 source block function.")
 
 (defvar obe-marker nil)
+(defvar org-current-export-file)
+(defvar org-babel-lob-one-liner-regexp)
+(defvar org-babel-ref-split-regexp)
+(declare-function org-babel-get-src-block-info "ob" (&optional header-vars-only))
+(declare-function org-babel-lob-get-info "ob-lob" ())
+(declare-function org-babel-ref-literal "ob-ref" (ref))
 
 (defun org-babel-exp-src-blocks (body &rest headers)
   "Process src block for export.  Depending on the 'export'

lisp/babel/ob-lob.el

@@ -33,6 +33,8 @@
 (require 'ob-table)
 (require 'ob-exp)
 
+(declare-function org-babel-get-src-block-info "ob" (&optional header-vars-only))
+
 (defvar org-babel-library-of-babel nil
   "Library of source-code blocks.  This is an association list.
 Populate the library by adding files to `org-babel-lob-files'.")

lisp/babel/ob-ref.el

@@ -54,8 +54,6 @@
 ;;; Code:
 (require 'ob)
 
-(declare-function org-babel-get-src-block-info "ob" (header-vars-only))
-
 (defun org-babel-ref-variables (params)
   "Takes a parameter alist, and return an alist of variable
 names, and the emacs-lisp representation of the related value."

lisp/babel/ob-tangle.el

@@ -31,6 +31,8 @@
 ;;; Code:
 (require 'ob)
 
+(declare-function org-babel-get-src-block-info "ob" (&optional header-vars-only))
+
 (defvar org-babel-tangle-langs nil
   "List of languages supported by `org-babel-tangle'.  The first
 element of each language's list is a string indicating the name

lisp/babel/ob.el

@@ -32,6 +32,24 @@
 (eval-when-compile (require 'cl))
 (require 'org)
 
+(defvar org-babel-interpreters nil)
+(defvar org-babel-call-process-region-original nil)
+(defvar call-process-region)
+(defvar org-babel-lob-one-liner-regexp)
+(declare-function orgtbl-to-generic "org-table" (table params))
+(declare-function org-babel-ref-split-args "ob-ref" (arg-string))
+(declare-function org-babel-ref-variables "ob-ref" (params))
+(declare-function org-babel-lob-get-info "ob-lob" nil)
+(declare-function orgtbl-to-orgtbl "org-table" (table params))
+(declare-function org-babel-ref-resolve-reference
+		  "ob-ref" (ref &optional params))
+(declare-function tramp-compat-make-temp-file
+		  "tramp" (filename &optional dir-flag))
+(declare-function tramp-dissect-file-name
+		  "tramp" (name &optional nodefault))
+(declare-function tramp-file-name-user "tramp" (vec))
+(declare-function tramp-file-name-host "tramp" (vec))
+
 ;; add the langs/ directory to the load path
 (add-to-list 'load-path (expand-file-name
 			 "langs"
@@ -156,9 +174,6 @@ can not be resolved.")
   (concat org-babel-source-name-regexp (regexp-quote name) "[ \t\n]*"
 	  (substring org-babel-src-block-regexp 1)))
 
-(defvar org-babel-interpreters nil)
-(defvar org-babel-call-process-region-original nil)
-
 (defun org-babel-add-interpreter (interpreter)
   "Add INTERPRETER to `org-babel-interpreters' and update
 `org-babel-src-block-regexp' appropriately."
@@ -1564,7 +1579,7 @@ specifies the value of ERROR-BUFFER."
 	      ;; Clear the output buffer, then run the command with
 	      ;; output there.
 	      (let ((directory default-directory))
-		(save-excursion
+		(save-current-buffer
 		  (set-buffer buffer)
 		  (setq buffer-read-only nil)
 		  (if (not output-buffer)