Remove unused declarations.

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  <lekktu@gmail.com>
 
         * 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  <rgm@gnu.org>
+
+        * 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  <rgm@gnu.org>
 
         * 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)))