From 5fc07bce0ada642ea4f46922f79823bfbf9a2466 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 2 Oct 2012 11:19:29 +0200 Subject: [PATCH] Declare functions and variables. --- lisp/ob-haskell.el | 2 ++ lisp/ob-io.el | 2 +- lisp/ob-picolisp.el | 1 + lisp/ob-ref.el | 1 + lisp/ob-scala.el | 2 +- lisp/ob-sql.el | 3 ++- lisp/ob-sqlite.el | 3 ++- lisp/ob.el | 1 + lisp/org.el | 16 +++++++++++++++- 9 files changed, 26 insertions(+), 5 deletions(-) diff --git a/lisp/ob-haskell.el b/lisp/ob-haskell.el index 1588f99f1..7f43fafb8 100644 --- a/lisp/ob-haskell.el +++ b/lisp/ob-haskell.el @@ -147,6 +147,8 @@ specifying a variable of the same value." (format "%S" var))) (defvar org-src-preserve-indentation) +(declare-function org-export-as-latex "org-latex" + (arg &optional hidden ext-plist to-buffer body-only pub-dir)) (defun org-babel-haskell-export-to-lhs (&optional arg) "Export to a .lhs file with all haskell code blocks escaped. When called with a prefix argument the resulting diff --git a/lisp/ob-io.el b/lisp/ob-io.el index 206482660..881f35afb 100644 --- a/lisp/ob-io.el +++ b/lisp/ob-io.el @@ -38,12 +38,12 @@ (require 'ob-eval) (eval-when-compile (require 'cl)) +(defvar org-babel-tangle-lang-exts) ;; Autoloaded (add-to-list 'org-babel-tangle-lang-exts '("io" . "io")) (defvar org-babel-default-header-args:io '()) (defvar org-babel-io-command "io" "Name of the command to use for executing Io code.") - (defun org-babel-execute:io (body params) "Execute a block of Io code with org-babel. This function is called by `org-babel-execute-src-block'" diff --git a/lisp/ob-picolisp.el b/lisp/ob-picolisp.el index dd0704fc1..025993c58 100644 --- a/lisp/ob-picolisp.el +++ b/lisp/ob-picolisp.el @@ -60,6 +60,7 @@ (eval-when-compile (require 'cl)) (declare-function run-picolisp "ext:inferior-picolisp" (cmd)) +(defvar org-babel-tangle-lang-exts) ;; Autoloaded ;; optionally define a file extension for this language (add-to-list 'org-babel-tangle-lang-exts '("picolisp" . "l")) diff --git a/lisp/ob-ref.el b/lisp/ob-ref.el index 79861f1b7..af4ee6a1a 100644 --- a/lisp/ob-ref.el +++ b/lisp/ob-ref.el @@ -59,6 +59,7 @@ (declare-function org-at-item-p "org-list" ()) (declare-function org-narrow-to-subtree "org" ()) (declare-function org-id-find-id-in-file "org-id" (id file &optional markerp)) +(declare-function org-id-find-id-file "org-id" (id)) (declare-function org-show-context "org" (&optional key)) (declare-function org-pop-to-buffer-same-window "org-compat" (&optional buffer-or-name norecord label)) diff --git a/lisp/ob-scala.el b/lisp/ob-scala.el index b5eb18484..bd855a83d 100644 --- a/lisp/ob-scala.el +++ b/lisp/ob-scala.el @@ -36,12 +36,12 @@ (require 'ob-eval) (eval-when-compile (require 'cl)) +(defvar org-babel-tangle-lang-exts) ;; Autoloaded (add-to-list 'org-babel-tangle-lang-exts '("scala" . "scala")) (defvar org-babel-default-header-args:scala '()) (defvar org-babel-scala-command "scala" "Name of the command to use for executing Scala code.") - (defun org-babel-execute:scala (body params) "Execute a block of Scala code with org-babel. This function is called by `org-babel-execute-src-block'" diff --git a/lisp/ob-sql.el b/lisp/ob-sql.el index ad7b1e29a..20a136a80 100644 --- a/lisp/ob-sql.el +++ b/lisp/ob-sql.el @@ -47,7 +47,8 @@ (eval-when-compile (require 'cl)) (declare-function org-table-import "org-table" (file arg)) -(declare-function orgtbl-to-csv "org-table" (TABLE PARAMS)) +(declare-function orgtbl-to-csv "org-table" (table params)) +(declare-function org-table-to-lisp "org-table" (&optional txt)) (defvar org-babel-default-header-args:sql '()) diff --git a/lisp/ob-sqlite.el b/lisp/ob-sqlite.el index 24a7dd58c..b1696d94d 100644 --- a/lisp/ob-sqlite.el +++ b/lisp/ob-sqlite.el @@ -33,7 +33,8 @@ (declare-function org-fill-template "org" (template alist)) (declare-function org-table-convert-region "org-table" (beg0 end0 &optional separator)) -(declare-function orgtbl-to-csv "org-table" (TABLE PARAMS)) +(declare-function orgtbl-to-csv "org-table" (table params)) +(declare-function org-table-to-lisp "org-table" (&optional txt)) (defvar org-babel-default-header-args:sqlite '()) diff --git a/lisp/ob.el b/lisp/ob.el index e71baaf10..b06aac11f 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -89,6 +89,7 @@ (declare-function org-completing-read "org" (&rest args)) (declare-function org-escape-code-in-region "org-src" (beg end)) (declare-function org-unescape-code-in-string "org-src" (s)) +(declare-function org-table-to-lisp "org-table" (&optional txt)) (defgroup org-babel nil "Code block evaluation and management in `org-mode' documents." diff --git a/lisp/org.el b/lisp/org.el index 881cd4f3f..723cf3a39 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -119,6 +119,20 @@ Stars are put in group 1 and the trimmed body in group 2.") (declare-function org-clock-timestamps-down "org-clock" ()) (declare-function org-clock-sum-current-item "org-clock" (&optional tstart)) +(declare-function orgtbl-mode "org-table" (&optional arg)) +(declare-function org-clock-out "org-clock" (&optional switch-to-state fail-quietly at-time)) +(declare-function org-beamer-mode "org-beamer" ()) +(declare-function org-table-edit-field "org-table" (arg)) +(declare-function org-table-justify-field-maybe "org-table" (&optional new)) +(declare-function org-id-get-create "org-id" (&optional force)) +(declare-function org-id-find-id-file "org-id" (id)) +(declare-function org-tags-view "org-agenda" (&optional todo-only match)) +(declare-function org-agenda-list "org-agenda" (&optional arg start-day span)) +(declare-function org-table-align "org-table" ()) +(declare-function org-table-paste-rectangle "org-table" ()) +(declare-function org-table-maybe-eval-formula "org-table" ()) +(declare-function org-table-maybe-recalculate-line "org-table" ()) + ;; load languages based on value of `org-babel-load-languages' (defvar org-babel-load-languages) @@ -4947,7 +4961,7 @@ The following commands are available: (lambda (&rest ignore) (org-show-context 'isearch)))) ;; Turn on org-beamer-mode? - (and org-startup-with-beamer-mode (org-beamer-mode 1)) + (and org-startup-with-beamer-mode (org-beamer-mode)) ;; Setup the pcomplete hooks (set (make-local-variable 'pcomplete-command-completion-function) -- 2.11.4.GIT