aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/term
diff options
context:
space:
mode:
authorGlenn Morris2009-10-01 02:17:38 +0000
committerGlenn Morris2009-10-01 02:17:38 +0000
commitb15c31c722dab1e91e9a3ab0ae130a79b60d1341 (patch)
treea8e2aba2a14b89a0ead80916e38076d6921fdc5b /lisp/term
parent64a51001e5331e8c11bef8827ed81df14b23be6f (diff)
downloademacs-b15c31c722dab1e91e9a3ab0ae130a79b60d1341.tar.gz
emacs-b15c31c722dab1e91e9a3ab0ae130a79b60d1341.zip
Remove unused declarations.
Diffstat (limited to 'lisp/term')
-rw-r--r--lisp/term/w32-win.el15
1 files changed, 5 insertions, 10 deletions
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 @@
1;;; w32-win.el --- parse switches controlling interface with W32 window system 1;;; w32-win.el --- parse switches controlling interface with W32 window system
2 2
3;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 3;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
4;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. 4;; 2008, 2009 Free Software Foundation, Inc.
5 5
6;; Author: Kevin Gallo 6;; Author: Kevin Gallo
7;; Keywords: terminals 7;; Keywords: terminals
@@ -166,11 +166,11 @@ the last file dropped is selected."
166 ;;; navigation feature. 166 ;;; navigation feature.
167 (defun w32-menu-bar-open (&optional frame) 167 (defun w32-menu-bar-open (&optional frame)
168 "Start key navigation of the menu bar in FRAME. 168 "Start key navigation of the menu bar in FRAME.
169 169
170This initially activates the first menu-bar item, and you can then navigate 170This initially activates the first menu-bar item, and you can then navigate
171with the arrow keys, select a menu entry with the Return key or cancel with 171with the arrow keys, select a menu entry with the Return key or cancel with
172the Escape key. If FRAME has no menu bar, this function does nothing. 172the Escape key. If FRAME has no menu bar, this function does nothing.
173 173
174If FRAME is nil or not given, use the selected frame. 174If FRAME is nil or not given, use the selected frame.
175If FRAME does not have the menu bar enabled, display a text menu using 175If FRAME does not have the menu bar enabled, display a text menu using
176`tmm-menubar'." 176`tmm-menubar'."
@@ -218,11 +218,6 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
218 218
219(declare-function x-open-connection "w32fns.c" 219(declare-function x-open-connection "w32fns.c"
220 (display &optional xrm-string must-succeed)) 220 (display &optional xrm-string must-succeed))
221
222(declare-function setup-default-fontset "fontset" ())
223(declare-function set-fontset-font "fontset.c"
224 (name target font-spec &optional frame add))
225(declare-function setup-default-fontset "fontset" ())
226(declare-function create-fontset-from-fontset-spec "fontset" 221(declare-function create-fontset-from-fontset-spec "fontset"
227 (fontset-spec &optional style-variant noerror)) 222 (fontset-spec &optional style-variant noerror))
228(declare-function create-fontset-from-x-resource "fontset" ()) 223(declare-function create-fontset-from-x-resource "fontset" ())
@@ -257,7 +252,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
257 ;; Create the standard fontset. 252 ;; Create the standard fontset.
258 (condition-case err 253 (condition-case err
259 (create-fontset-from-fontset-spec w32-standard-fontset-spec t) 254 (create-fontset-from-fontset-spec w32-standard-fontset-spec t)
260 (error (display-warning 255 (error (display-warning
261 'initialization 256 'initialization
262 (format "Creation of the standard fontset failed: %s" err) 257 (format "Creation of the standard fontset failed: %s" err)
263 :error))) 258 :error)))