From b15c31c722dab1e91e9a3ab0ae130a79b60d1341 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 1 Oct 2009 02:17:38 +0000 Subject: [PATCH] Remove unused declarations. --- lisp/ChangeLog | 7 +++++++ lisp/calc/calc.el | 1 - lisp/ibuffer.el | 1 - lisp/isearch.el | 1 - lisp/mail/uce.el | 2 -- lisp/org/ChangeLog | 13 +++++++++++++ lisp/org/org-agenda.el | 1 - lisp/org/org-exp.el | 1 - lisp/org/org-list.el | 1 - lisp/org/org-wl.el | 3 --- lisp/term/w32-win.el | 15 +++++---------- 11 files changed, 25 insertions(+), 21 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7c246635258..f10abfb6b70 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -7,6 +7,13 @@ (check-declare-directory): Doc fix. * subr.el (declare-function): Doc fix. + * ibuffer.el (ibuffer-format-qualifier): + * isearch.el (hi-lock-regexp-okay): + * calc/calc.el (math-zerop): + * mail/uce.el (rmail-msgbeg, rmail-msgend): + * term/w32-win.el (setup-default-fontset, set-fontset-font): + Remove unused declarations. + 2009-10-01 Juanma Barranquero * cedet/semantic/wisent/javat-wy.el diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index d38d6b7dbde..75a08d7e79b 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -185,7 +185,6 @@ (declare-function calc-incomplete-error "calc-incom" (a)) (declare-function math-float-fancy "calc-arith" (a)) (declare-function math-neg-fancy "calc-arith" (a)) -(declare-function math-zerop "calc-misc" (a)) (declare-function calc-add-fractions "calc-frac" (a b)) (declare-function math-add-objects-fancy "calc-arith" (a b)) (declare-function math-add-symb-fancy "calc-arith" (a b)) diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index e3693c443cc..13085f646d3 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -56,7 +56,6 @@ (declare-function ibuffer-mark-on-buffer "ibuf-ext" (func &optional ibuffer-mark-on-buffer-mark group)) -(declare-function ibuffer-format-qualifier "ibuf-ext" (qualifier)) (declare-function ibuffer-generate-filter-groups "ibuf-ext" (bmarklist &optional noempty nodefault)) (declare-function ibuffer-format-filter-group-data "ibuf-ext" (filter)) diff --git a/lisp/isearch.el b/lisp/isearch.el index bf2f0738d97..95e45c7e58e 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -1401,7 +1401,6 @@ string. NLINES has the same meaning as in `occur'." (search-upper-case nil)) (occur regexp nlines))) -(declare-function hi-lock-regexp-okay "hi-lock" (regexp)) (declare-function hi-lock-read-face-name "hi-lock" ()) (defun isearch-highlight-regexp () diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el index 2d7122775ff..e1cd30ee795 100644 --- a/lisp/mail/uce.el +++ b/lisp/mail/uce.el @@ -219,8 +219,6 @@ These are mostly meant for headers that prevent delivery errors reporting." (declare-function rmail-msg-is-pruned "rmail" ()) (declare-function mail-strip-quoted-names "mail-utils" (address)) (declare-function rmail-maybe-set-message-counters "rmail" ()) -(declare-function rmail-msgbeg "rmail" (n)) -(declare-function rmail-msgend "rmail" (n)) (declare-function rmail-toggle-header "rmail" (&optional arg)) ;;;###autoload diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 8685c02b7a8..1cd25682169 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog @@ -1,3 +1,16 @@ +2009-10-01 Glenn Morris + + * org-agenda.el (calendar-check-holidays): + * org-exp.el (org-agenda-skip): + * org-list.el (outline-back-to-heading): + * org-wl.el (wl-summary-goto-folder-subr): + * org.el (iswitchb-mode, remember, remember-buffer-desc) + (remember-finalize, remember-save-after-remembering, remember-register) + (remember-buffer, remember-handler-functions) + (remember-annotation-functions): Remove unused declarations. + + * org.el (iswitchb-read-buffer): Fix declaration. + 2009-09-30 Glenn Morris * org-compat.el (w32-focus-frame): diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index ed9d7c05ac6..a285795eba7 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el @@ -40,7 +40,6 @@ (declare-function calendar-absolute-from-iso "cal-iso" (date)) (declare-function calendar-astro-date-string "cal-julian" (&optional date)) (declare-function calendar-bahai-date-string "cal-bahai" (&optional date)) -(declare-function calendar-check-holidays "holidays" (date)) (declare-function calendar-chinese-date-string "cal-china" (&optional date)) (declare-function calendar-coptic-date-string "cal-coptic" (&optional date)) (declare-function calendar-ethiopic-date-string "cal-coptic" (&optional date)) diff --git a/lisp/org/org-exp.el b/lisp/org/org-exp.el index c03ff19dc20..53b1a3d1171 100644 --- a/lisp/org/org-exp.el +++ b/lisp/org/org-exp.el @@ -36,7 +36,6 @@ (declare-function org-export-ascii-preprocess "org-ascii" (parameters)) (declare-function org-export-html-preprocess "org-html" (parameters)) (declare-function org-export-docbook-preprocess "org-docbook" (parameters)) -(declare-function org-agenda-skip "org-agenda" ()) (declare-function org-infojs-options-inbuffer-template "org-jsinfo" ()) (declare-function org-export-htmlize-region-for-paste "org-html" (beg end)) (declare-function htmlize-buffer "ext:htmlize" (&optional buffer)) diff --git a/lisp/org/org-list.el b/lisp/org/org-list.el index cef5fe458a4..a0ba28c5254 100644 --- a/lisp/org/org-list.el +++ b/lisp/org/org-list.el @@ -42,7 +42,6 @@ (declare-function org-invisible-p "org" ()) (declare-function org-on-heading-p "org" (&optional invisible-ok)) (declare-function outline-next-heading "outline" ()) -(declare-function outline-back-to-heading "outline" (&optional invisible-ok)) (declare-function org-back-to-heading "org" (&optional invisible-ok)) (declare-function org-back-over-empty-lines "org" ()) (declare-function org-skip-whitespace "org" ()) diff --git a/lisp/org/org-wl.el b/lisp/org/org-wl.el index 24a772a7aa2..af09d49fd6a 100644 --- a/lisp/org/org-wl.el +++ b/lisp/org/org-wl.el @@ -56,9 +56,6 @@ (declare-function wl-summary-buffer-msgdb "ext:wl-folder" () t) ;(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" ()) diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 28940802ab3..b9683f3a932 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -1,7 +1,7 @@ ;;; w32-win.el --- parse switches controlling interface with W32 window system -;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008, 2009 Free Software Foundation, Inc. ;; Author: Kevin Gallo ;; Keywords: terminals @@ -166,11 +166,11 @@ the last file dropped is selected." ;;; navigation feature. (defun w32-menu-bar-open (&optional frame) "Start key navigation of the menu bar in FRAME. - + This initially activates the first menu-bar item, and you can then navigate with the arrow keys, select a menu entry with the Return key or cancel with the Escape key. If FRAME has no menu bar, this function does nothing. - + If FRAME is nil or not given, use the selected frame. If FRAME does not have the menu bar enabled, display a text menu using `tmm-menubar'." @@ -218,11 +218,6 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") (declare-function x-open-connection "w32fns.c" (display &optional xrm-string must-succeed)) - -(declare-function setup-default-fontset "fontset" ()) -(declare-function set-fontset-font "fontset.c" - (name target font-spec &optional frame add)) -(declare-function setup-default-fontset "fontset" ()) (declare-function create-fontset-from-fontset-spec "fontset" (fontset-spec &optional style-variant noerror)) (declare-function create-fontset-from-x-resource "fontset" ()) @@ -257,7 +252,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") ;; Create the standard fontset. (condition-case err (create-fontset-from-fontset-spec w32-standard-fontset-spec t) - (error (display-warning + (error (display-warning 'initialization (format "Creation of the standard fontset failed: %s" err) :error))) -- 2.39.2