Commit b15c31c7 authored by Glenn Morris's avatar Glenn Morris
Browse files

Remove unused declarations.

parent 64a51001
......@@ -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
......
......@@ -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))
......
......@@ -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))
......
......@@ -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 ()
......
......@@ -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
......
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):
......
......@@ -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))
......
......@@ -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))
......
......@@ -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" ())
......
......@@ -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" ())
......
;;; 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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment