Browse Source

babel: uniform declare-function placement at the tops of files

Eric Schulte 15 years ago
parent
commit
b329b7a736
4 changed files with 12 additions and 10 deletions
  1. 2 0
      lisp/babel/ob-comint.el
  2. 8 8
      lisp/babel/ob-exp.el
  3. 1 1
      lisp/babel/ob-lob.el
  4. 1 1
      lisp/babel/ob-tangle.el

+ 2 - 0
lisp/babel/ob-comint.el

@@ -36,6 +36,8 @@
 (require 'ob)
 (require 'ob)
 (require 'comint)
 (require 'comint)
 
 
+(declare-function org-babel-get-src-block-info "ob" (&optional hvo))
+
 (defun org-babel-comint-buffer-livep (buffer)
 (defun org-babel-comint-buffer-livep (buffer)
   "Check if BUFFER is a comint buffer with a live process."
   "Check if BUFFER is a comint buffer with a live process."
   (let ((buffer (if buffer (get-buffer buffer))))
   (let ((buffer (if buffer (get-buffer buffer))))

+ 8 - 8
lisp/babel/ob-exp.el

@@ -34,6 +34,14 @@
 (eval-when-compile
 (eval-when-compile
   (require 'cl))
   (require 'cl))
 
 
+(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 hvo))
+(declare-function org-babel-lob-get-info "ob-lob" ())
+(declare-function org-babel-ref-literal "ob-ref" (ref))
+
 (add-to-list 'org-export-interblocks '(src org-babel-exp-inline-src-blocks))
 (add-to-list 'org-export-interblocks '(src org-babel-exp-inline-src-blocks))
 (add-to-list 'org-export-interblocks '(lob org-babel-exp-lob-one-liners))
 (add-to-list 'org-export-interblocks '(lob org-babel-exp-lob-one-liners))
 (add-hook 'org-export-blocks-postblock-hook 'org-exp-res/src-name-cleanup)
 (add-hook 'org-export-blocks-postblock-hook 'org-exp-res/src-name-cleanup)
@@ -61,14 +69,6 @@ will be indented by this many characters. See
 `org-babel-function-def-export-name' for the definition of a
 `org-babel-function-def-export-name' for the definition of a
 source block function.")
 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)
 (defun org-babel-exp-src-blocks (body &rest headers)
   "Process src block for export.  Depending on the 'export'
   "Process src block for export.  Depending on the 'export'
 headers argument in replace the source code block with...
 headers argument in replace the source code block with...

+ 1 - 1
lisp/babel/ob-lob.el

@@ -33,7 +33,7 @@
 (require 'ob-table)
 (require 'ob-table)
 (require 'ob-exp)
 (require 'ob-exp)
 
 
-(declare-function org-babel-get-src-block-info "ob" (&optional header-vars-only))
+(declare-function org-babel-get-src-block-info "ob" (&optional hvo))
 
 
 (defvar org-babel-library-of-babel nil
 (defvar org-babel-library-of-babel nil
   "Library of source-code blocks.  This is an association list.
   "Library of source-code blocks.  This is an association list.

+ 1 - 1
lisp/babel/ob-tangle.el

@@ -33,7 +33,7 @@
 (eval-when-compile
 (eval-when-compile
   (require 'cl))
   (require 'cl))
 
 
-(declare-function org-babel-get-src-block-info "ob" (&optional header-vars-only))
+(declare-function org-babel-get-src-block-info "ob" (&optional hvo))
 
 
 (defvar org-babel-tangle-langs nil
 (defvar org-babel-tangle-langs nil
   "List of languages supported by `org-babel-tangle'.  The first
   "List of languages supported by `org-babel-tangle'.  The first