# HG changeset patch # User Dan Nicolaescu # Date 1196439880 0 # Node ID 86f143f19d088c64acb2b6f297282940551086f4 # Parent d45c043e64476fe8bffa1f85a539db9c33cad964 * 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. diff -r d45c043e6447 -r 86f143f19d08 lisp/ChangeLog --- 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 + + * 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 * longlines.el (longlines-show-hard-newlines): Remove handling of diff -r d45c043e6447 -r 86f143f19d08 lisp/textmodes/org-export-latex.el --- 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 diff -r d45c043e6447 -r 86f143f19d08 lisp/textmodes/org.el --- 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)