Remove unused declarations.

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

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

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

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

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

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

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

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

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

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

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