Remove unused declarations.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7c246635258f8df2a6f7ed7426ee0611743aa3b4..f10abfb6b700c0e03520ca32108e97714a75bb78 100644 (file)
--- 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 d38d6b7dbdebe76d08eb01812bcdfc0644f3850a..75a08d7e79b9ac639c15e29552e69d95d9ea2d98 100644 (file)
--- 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 e3693c443ccd52255c31fbeb2a1dbaac5396639c..13085f646d3ba8ebd5180413e29724a53d47df99 100644 (file)
--- 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 bf2f0738d977d56d2b2be643934d831e0c968b6a..95e45c7e58ed7b6e6093fbdaaaff17bb1e41443e 100644 (file)
--- 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 2d7122775ffb2755a5a4599833deb8522882b4c1..e1cd30ee795daf922defa268ea390a4a6d8f7df9 100644 (file)
--- 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 8685c02b7a8380a354f172874e6b3f625dc36aad..1cd25682169e429388e06bd28a194109f0d99206 100644 (file)
--- 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 ed9d7c05ac60b37836adc39b1518ac962832add7..a285795eba72ef8297b7c5d2bd07af63c8be8c3a 100644 (file)
--- 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 c03ff19dc205e86f5233f7d59bb27dc8c040a6d2..53b1a3d11710516946b67651aad7b69265910fc6 100644 (file)
--- 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 cef5fe458a4665d5fd545036a5c2f0226986227c..a0ba28c5254cf728f1ecab5f9d7f82c7422df03f 100644 (file)
--- 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 24a772a7aa2ea5a59149b90c75b1f5784f533a82..af09d49fd6afa7f0dc369467662e4e7ef27edd78 100644 (file)
--- 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 28940802ab36e0c7dc16bc3441df6f239d5dfe65..b9683f3a9324390df5f1f1ffa7e3f21d0366550d 100644 (file)
--- 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)))