* textmodes/org-export-latex.el (org-export-latex-cleaned-string):

Move args on defun line.

* textmodes/org.el (org-calendar-holiday): Use
calendar-check-holidays instead of the obsolete
check-calendar-holidays.
(add-to-diary-list, table--at-cell-p, Info-find-node, bbdb)
(bbdb-company, bbdb-current-record, bbdb-name)
(bbdb-record-getprop, bbdb-record-name)
(bibtex-beginning-of-entry, bibtex-generate-autokey)
(bibtex-parse-entry, bibtex-url, cdlatex-tab)
(dired-get-filename, gnus-article-show-summary, mh-display-msg)
(mh-find-path, mh-get-header-field, mh-get-msg-num)
(mh-header-display, mh-index-previous-folder)
(mh-normalize-folder-name, mh-search, mh-search-choose, mh-show)
(mh-show-buffer-message-number, mh-show-header-display)
(mh-show-msg, mh-show-show, mh-visit-folder)
(org-export-latex-cleaned-string, remember)
(remember-buffer-desc, rmail-narrow-to-non-pruned-header)
(rmail-what-message, elmo-folder-exists-p)
(elmo-message-entity-field, elmo-message-field)
(vm-beginning-of-message, vm-follow-summary-cursor)
(vm-get-header-contents, vm-isearch-narrow, vm-isearch-update)
(vm-select-folder-buffer, vm-su-message-id, vm-su-subject)
(vm-summarize, wl-folder-get-elmo-folder)
(wl-summary-goto-folder-subr)
(wl-summary-jump-to-msg-by-message-id, wl-summary-line-from)
(wl-summary-line-subject, wl-summary-message-number)
(wl-summary-redisplay): Declare as functions.

3 files changed, 92 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b0de7fabde2..e1540d5920e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,35 @@
+2007-11-30  Dan Nicolaescu  <dann@ics.uci.edu>
+
+        * textmodes/org-export-latex.el (org-export-latex-cleaned-string):
+        Move args on defun line.
+
+        * textmodes/org.el (org-calendar-holiday): Use
+        calendar-check-holidays instead of the obsolete
+        check-calendar-holidays.
+        (add-to-diary-list, table--at-cell-p, Info-find-node, bbdb)
+        (bbdb-company, bbdb-current-record, bbdb-name)
+        (bbdb-record-getprop, bbdb-record-name)
+        (bibtex-beginning-of-entry, bibtex-generate-autokey)
+        (bibtex-parse-entry, bibtex-url, cdlatex-tab)
+        (dired-get-filename, gnus-article-show-summary, mh-display-msg)
+        (mh-find-path, mh-get-header-field, mh-get-msg-num)
+        (mh-header-display, mh-index-previous-folder)
+        (mh-normalize-folder-name, mh-search, mh-search-choose, mh-show)
+        (mh-show-buffer-message-number, mh-show-header-display)
+        (mh-show-msg, mh-show-show, mh-visit-folder)
+        (org-export-latex-cleaned-string, remember)
+        (remember-buffer-desc, rmail-narrow-to-non-pruned-header)
+        (rmail-what-message, elmo-folder-exists-p)
+        (elmo-message-entity-field, elmo-message-field)
+        (vm-beginning-of-message, vm-follow-summary-cursor)
+        (vm-get-header-contents, vm-isearch-narrow, vm-isearch-update)
+        (vm-select-folder-buffer, vm-su-message-id, vm-su-subject)
+        (vm-summarize, wl-folder-get-elmo-folder)
+        (wl-summary-goto-folder-subr)
+        (wl-summary-jump-to-msg-by-message-id, wl-summary-line-from)
+        (wl-summary-line-subject, wl-summary-message-number)
+        (wl-summary-redisplay): Declare as functions.
+
 2007-11-30  Martin Rudalics  <rudalics@gmx.at>
 
         * longlines.el (longlines-show-hard-newlines): Remove handling of
diff --git a/lisp/textmodes/org-export-latex.el b/lisp/textmodes/org-export-latex.el
index b1b31b622d1..eef1c10e5b6 100644
--- a/lisp/textmodes/org-export-latex.el
+++ b/lisp/textmodes/org-export-latex.el
@@ -1077,9 +1077,8 @@ Valid parameters are
              (path (insert (format "\\href{%s}{%s}" path desc)))
              (t (insert "\\texttt{" desc "}")))))))
 
-(defun org-export-latex-cleaned-string 
+(defun org-export-latex-cleaned-string (&optional commentsp)
   ;; FIXME remove commentsp call in org.el and here
-  (&optional commentsp)
   "Clean stuff in the LaTeX export."
 
   ;; Preserve line breaks
diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el
index b555e6c1102..fdedc1580bc 100644
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -3883,6 +3883,64 @@ If it is less than 8, the level-1 face gets re-used for level N+1 etc."
   :type 'number
   :group 'org-faces)
 
+;;; Function declarations.
+(declare-function add-to-diary-list "diary-lib"
+                  (date string specifier &optional marker globcolor literal))
+(declare-function table--at-cell-p "table" (position &optional object at-column))
+(declare-function Info-find-node "info" (filename nodename &optional no-going-back))
+(declare-function bbdb "ext:bbdb-com" (string elidep))
+(declare-function bbdb-company "ext:bbdb-com" (string elidep))
+(declare-function bbdb-current-record "ext:bbdb-com" (&optional planning-on-modifying))
+(declare-function bbdb-name "ext:bbdb-com" (string elidep))
+(declare-function bbdb-record-getprop "ext:bbdb" (record property))
+(declare-function bbdb-record-name "ext:bbdb" (record))
+(declare-function bibtex-beginning-of-entry "bibtex" ())
+(declare-function bibtex-generate-autokey "bibtex" ())
+(declare-function bibtex-parse-entry "bibtex" (&optional content))
+(declare-function bibtex-url "bibtex" (&optional pos no-browse))
+(declare-function cdlatex-tab "ext:cdlatex" ())
+(declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep))
+(declare-function gnus-article-show-summary "gnus-art" ())
+(declare-function mh-display-msg "mh-show" (msg-num folder-name))
+(declare-function mh-find-path "mh-utils" ())
+(declare-function mh-get-header-field "mh-utils" (field))
+(declare-function mh-get-msg-num "mh-utils" (error-if-no-message))
+(declare-function mh-header-display "mh-show" ())
+(declare-function mh-index-previous-folder "mh-search" ())
+(declare-function mh-normalize-folder-name "mh-utils" (folder &optional empty-string-okay dont-remove-trailing-slash return-nil-if-folder-empty))
+(declare-function mh-search "mh-search" (folder search-regexp &optional redo-search-flag window-config))
+(declare-function mh-search-choose "mh-search" (&optional searcher))
+(declare-function mh-show "mh-show" (&optional message redisplay-flag))
+(declare-function mh-show-buffer-message-number "mh-comp" (&optional buffer))
+(declare-function mh-show-header-display "mh-show" t t)
+(declare-function mh-show-msg "mh-show" (msg))
+(declare-function mh-show-show "mh-show" t t)
+(declare-function mh-visit-folder "mh-folder" (folder &optional range index-data))
+(declare-function org-export-latex-cleaned-string "org-export-latex" (&optional commentsp))
+(declare-function remember "remember" (&optional initial))
+(declare-function remember-buffer-desc "remember" ())
+(declare-function rmail-narrow-to-non-pruned-header "rmail" ())
+(declare-function rmail-what-message "rmail" ())
+(declare-function elmo-folder-exists-p "ext:elmo" (folder) t)
+(declare-function elmo-message-entity-field "ext:elmo-msgdb" (entity field &optional type))
+(declare-function elmo-message-field "ext:elmo" (folder number field &optional type) t)
+(declare-function vm-beginning-of-message "ext:vm-page" ())
+(declare-function vm-follow-summary-cursor "ext:vm-motion" ())
+(declare-function vm-get-header-contents "ext:vm-summary" (message header-name-regexp &optional clump-sep))
+(declare-function vm-isearch-narrow "ext:vm-search" ())
+(declare-function vm-isearch-update "ext:vm-search" ())
+(declare-function vm-select-folder-buffer "ext:vm-macro" ())
+(declare-function vm-su-message-id "ext:vm-summary" (m))
+(declare-function vm-su-subject "ext:vm-summary" (m))
+(declare-function vm-summarize "ext:vm-summary" (&optional display raise))
+(declare-function wl-folder-get-elmo-folder "ext:wl-folder" (entity &optional no-cache))
+(declare-function wl-summary-goto-folder-subr "ext:wl-summary" (&optional name scan-type other-window sticky interactive scoring force-exit))
+(declare-function wl-summary-jump-to-msg-by-message-id "ext:wl-summary" (&optional id))
+(declare-function wl-summary-line-from "ext:wl-summary" ())
+(declare-function wl-summary-line-subject "ext:wl-summary" ())
+(declare-function wl-summary-message-number "ext:wl-summary" ())
+(declare-function wl-summary-redisplay "ext:wl-summary" (&optional arg))
+
 ;;; Variables for pre-computed regular expressions, all buffer local
 
 (defvar org-drawer-regexp nil
@@ -16838,7 +16896,7 @@ D may be an absolute day number, or a calendar-type list (month day year)."
 
 (defun org-calendar-holiday ()
   "List of holidays, for Diary display in Org-mode."
-  (let ((hl (check-calendar-holidays date)))
+  (let ((hl (calendar-check-holidays date)))
     (if hl (mapconcat 'identity hl "; "))))
 
 (defun org-diary-sexp-entry (sexp entry date)