From 728611fa77ea6af2328926d0614b2fbb010b07df Mon Sep 17 00:00:00 2001
From: Bastien Guerry <bzg@altern.org>
Date: Fri, 28 Oct 2011 17:26:22 +0200
Subject: [PATCH] Fix compiler warnings.

---
 lisp/ob-calc.el     | 4 ++++
 lisp/org-agenda.el  | 1 +
 lisp/org-colview.el | 2 ++
 lisp/org-docbook.el | 2 ++
 lisp/org-exp.el     | 1 +
 lisp/org-html.el    | 3 +++
 6 files changed, 13 insertions(+)

diff --git a/lisp/ob-calc.el b/lisp/ob-calc.el
index 44ed82bdc..0b0cfd4b1 100644
--- a/lisp/ob-calc.el
+++ b/lisp/ob-calc.el
@@ -33,6 +33,10 @@
   (require 'calc-store))
 (eval-when-compile (require 'ob-comint))
 
+(declare-function calc-store-into    "calc-store" (&optional var))
+(declare-function calc-recall        "calc-store" (&optional var))
+(declare-function math-evaluate-expr "calc-ext"   (x))
+
 (defvar org-babel-default-header-args:calc nil
   "Default arguments for evaluating an calc source block.")
 
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 7487959b5..ad6f95fc2 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4584,6 +4584,7 @@ the documentation of `org-diary'."
 		  (setq results (append results rtn))))))))
 	results))))
 
+(defvar org-heading-keyword-regexp-format) ; defined in org.el
 (defun org-agenda-get-todos ()
   "Return the TODO information for agenda display."
   (let* ((props (list 'face nil
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index 158354be8..c1fb55586 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -1142,6 +1142,8 @@ calc         function to get values from base elements"
 
 ;;; Dynamic block for Column view
 
+(defvar org-heading-regexp) ; defined in org.el
+(defvar org-heading-keyword-regexp-format) ; defined in org.el
 (defun org-columns-capture-view (&optional maxlevel skip-empty-rows)
   "Get the column view of the current buffer or subtree.
 The first optional argument MAXLEVEL sets the level limit.  A
diff --git a/lisp/org-docbook.el b/lisp/org-docbook.el
index e70df252e..6b103543a 100644
--- a/lisp/org-docbook.el
+++ b/lisp/org-docbook.el
@@ -393,6 +393,8 @@ in a window.  A non-interactive call will only return the buffer."
 	(org-open-file pdffile)
       (error "PDF file was not produced"))))
 
+(defvar org-heading-keyword-regexp-format) ; defined in org.el
+
 ;;;###autoload
 (defun org-export-as-docbook (&optional hidden ext-plist
 					to-buffer body-only pub-dir)
diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 4324d38a9..fa54242cf 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -1640,6 +1640,7 @@ from the buffer."
       (org-if-unprotected
        (replace-match "")))))
 
+(defvar org-heading-keyword-regexp-format) ; defined in org.el
 (defun org-export-protect-quoted-subtrees ()
   "Mark quoted subtrees with the protection property."
   (let ((org-re-quote (format org-heading-keyword-regexp-format
diff --git a/lisp/org-html.el b/lisp/org-html.el
index 30d7c909e..67ef545e2 100644
--- a/lisp/org-html.el
+++ b/lisp/org-html.el
@@ -1054,6 +1054,9 @@ OPT-PLIST is the export options list."
     line))
 
 ;;; org-export-as-html
+
+(defvar org-heading-keyword-regexp-format) ; defined in org.el
+
 ;;;###autoload
 (defun org-export-as-html (arg &optional hidden ext-plist
 			       to-buffer body-only pub-dir)
-- 
2.11.4.GIT