Mercurial > emacs

--- a/lisp/ChangeLog	Fri Nov 30 13:57:57 2007 +0000
+++ b/lisp/ChangeLog	Fri Nov 30 16:24:40 2007 +0000
@@ -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
--- a/lisp/textmodes/org-export-latex.el	Fri Nov 30 13:57:57 2007 +0000
+++ b/lisp/textmodes/org-export-latex.el	Fri Nov 30 16:24:40 2007 +0000
@@ -1077,9 +1077,8 @@
 	     (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
--- a/lisp/textmodes/org.el	Fri Nov 30 13:57:57 2007 +0000
+++ b/lisp/textmodes/org.el	Fri Nov 30 16:24:40 2007 +0000
@@ -3883,6 +3883,64 @@
   :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 @@

 (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)