Browse Source

Fix compiler warnings.

Bastien Guerry 13 years ago
parent
commit
728611fa77
6 changed files with 13 additions and 0 deletions
  1. 4 0
      lisp/ob-calc.el
  2. 1 0
      lisp/org-agenda.el
  3. 2 0
      lisp/org-colview.el
  4. 2 0
      lisp/org-docbook.el
  5. 1 0
      lisp/org-exp.el
  6. 3 0
      lisp/org-html.el

+ 4 - 0
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.")
 

+ 1 - 0
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

+ 2 - 0
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

+ 2 - 0
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)

+ 1 - 0
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

+ 3 - 0
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)