Mercurial > emacs
changeset 105322:4c610ec5ed40
Remove unused declarations.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 01 Oct 2009 02:17:38 +0000 |
| parents | c54e9253e596 |
| children | caba6faa5726 |
| files | lisp/ChangeLog lisp/calc/calc.el lisp/ibuffer.el lisp/isearch.el lisp/mail/uce.el lisp/term/w32-win.el |
| diffstat | 6 files changed, 12 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Oct 01 02:13:00 2009 +0000 +++ b/lisp/ChangeLog Thu Oct 01 02:17:38 2009 +0000 @@ -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
--- a/lisp/calc/calc.el Thu Oct 01 02:13:00 2009 +0000 +++ b/lisp/calc/calc.el Thu Oct 01 02:17:38 2009 +0000 @@ -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))
--- a/lisp/ibuffer.el Thu Oct 01 02:13:00 2009 +0000 +++ b/lisp/ibuffer.el Thu Oct 01 02:17:38 2009 +0000 @@ -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))
--- a/lisp/isearch.el Thu Oct 01 02:13:00 2009 +0000 +++ b/lisp/isearch.el Thu Oct 01 02:17:38 2009 +0000 @@ -1401,7 +1401,6 @@ (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 ()
--- a/lisp/mail/uce.el Thu Oct 01 02:13:00 2009 +0000 +++ b/lisp/mail/uce.el Thu Oct 01 02:17:38 2009 +0000 @@ -219,8 +219,6 @@ (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
--- a/lisp/term/w32-win.el Thu Oct 01 02:13:00 2009 +0000 +++ b/lisp/term/w32-win.el Thu Oct 01 02:17:38 2009 +0000 @@ -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 @@ ;;; 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 @@ (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 @@ ;; 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)))