Mercurial > hg > xemacs-beta

diff src/device-gtk.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents 91d4c8c65a0f
children a25c824ed558
line wrap: on
line diff
--- a/src/device-gtk.c	Mon Sep 20 19:11:29 2004 +0000
+++ b/src/device-gtk.c	Mon Sep 20 19:20:08 2004 +0000
@@ -199,16 +199,13 @@
 }
 
 static void
-gtk_init_device (struct device *d, Lisp_Object props)
+gtk_init_device (struct device *d, Lisp_Object UNUSED (props))
 {
-  Lisp_Object device;
   Lisp_Object display;
   GtkWidget *app_shell = NULL;
   GdkVisual *visual = NULL;
   GdkColormap *cmap = NULL;
 
-  device = wrap_device (d);
-
   /* gtk_init() and even gtk_check_init() are so brain dead that
      getting an empty argv array causes them to abort. */
   if (NILP (Vgtk_initial_argv_list))
@@ -331,7 +328,7 @@
 }
 
 static void
-gtk_finish_init_device (struct device *d, Lisp_Object props)
+gtk_finish_init_device (struct device *UNUSED (d), Lisp_Object UNUSED (props))
 {
   call0 (Qinit_post_gtk_win);
 }
@@ -357,14 +354,11 @@
 static void
 gtk_delete_device (struct device *d)
 {
-  Lisp_Object device;
-
 #ifdef FREE_CHECKING
   extern void (*__free_hook)();
   int checking_free;
 #endif
 
-  device = wrap_device (d);
   if (1)
     {
 #ifdef FREE_CHECKING
@@ -538,7 +532,7 @@
   keyboard events during the grab.
 Returns t if the grab is successful, nil otherwise.
 */
-       (device, cursor, ignore_keyboard))
+       (device, cursor, UNUSED (ignore_keyboard)))
 {
   GdkWindow *w;
   int result;
@@ -614,7 +608,7 @@
 DEFUN ("gtk-ungrab-keyboard", Fgtk_ungrab_keyboard, 0, 1, 0, /*
 Release a keyboard grab made with `gtk-grab-keyboard'.
 */
-       (device))
+       (UNUSED (device)))
 {
   gdk_keyboard_ungrab (GDK_CURRENT_TIME);
   return Qnil;