diff options
| author | Glenn Morris | 2009-10-01 02:17:38 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-10-01 02:17:38 +0000 |
| commit | b15c31c722dab1e91e9a3ab0ae130a79b60d1341 (patch) | |
| tree | a8e2aba2a14b89a0ead80916e38076d6921fdc5b /lisp/term | |
| parent | 64a51001e5331e8c11bef8827ed81df14b23be6f (diff) | |
| download | emacs-b15c31c722dab1e91e9a3ab0ae130a79b60d1341.tar.gz emacs-b15c31c722dab1e91e9a3ab0ae130a79b60d1341.zip | |
Remove unused declarations.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/w32-win.el | 15 |
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 | ||
| 170 | This initially activates the first menu-bar item, and you can then navigate | 170 | This initially activates the first menu-bar item, and you can then navigate |
| 171 | with the arrow keys, select a menu entry with the Return key or cancel with | 171 | with the arrow keys, select a menu entry with the Return key or cancel with |
| 172 | the Escape key. If FRAME has no menu bar, this function does nothing. | 172 | the Escape key. If FRAME has no menu bar, this function does nothing. |
| 173 | 173 | ||
| 174 | If FRAME is nil or not given, use the selected frame. | 174 | If FRAME is nil or not given, use the selected frame. |
| 175 | If FRAME does not have the menu bar enabled, display a text menu using | 175 | If 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))) |