Skip to content

Commit

Permalink
Fix compiler warnings.
Browse files Browse the repository at this point in the history
  • Loading branch information
Bastien Guerry committed Oct 28, 2011
1 parent ef08850 commit 728611f
Show file tree
Hide file tree
Showing 6 changed files with 13 additions and 0 deletions.
4 changes: 4 additions & 0 deletions lisp/ob-calc.el
Original file line number Diff line number Diff line change
Expand Up @@ -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.")

Expand Down
1 change: 1 addition & 0 deletions lisp/org-agenda.el
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 2 additions & 0 deletions lisp/org-colview.el
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 2 additions & 0 deletions lisp/org-docbook.el
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
1 change: 1 addition & 0 deletions lisp/org-exp.el
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
3 changes: 3 additions & 0 deletions lisp/org-html.el
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down

0 comments on commit 728611f

Please sign in to comment.