# HG changeset patch
# User james
# Date 1093555161 0
# Node ID 465941a6185907058f8e5ccba47eb7163c0d1d5a
# Parent  e9aa19426bc943e193e4a2d20be56d002c51cda6
[xemacs-hg @ 2004-08-26 21:19:19 by james]
Remove two instances of unused Lisp wrappers named 'device'.

diff -r e9aa19426bc9 -r 465941a61859 src/ChangeLog
--- a/src/ChangeLog	Thu Aug 26 20:53:08 2004 +0000
+++ b/src/ChangeLog	Thu Aug 26 21:19:21 2004 +0000
@@ -1,3 +1,8 @@
+2004-08-26  Jerry James  <james@xemacs.org>
+
+	* device-x.c (x_init_device): Remove unused variable device.
+	* device-x.c (x_delete_device): Ditto.
+
 2004-08-26  Jerry James  <james@xemacs.org>
 
 	* eval.c (Ffuncall): Remove unused variable orig_fun.
diff -r e9aa19426bc9 -r 465941a61859 src/device-x.c
--- a/src/device-x.c	Thu Aug 26 20:53:08 2004 +0000
+++ b/src/device-x.c	Thu Aug 26 21:19:21 2004 +0000
@@ -495,7 +495,6 @@
 x_init_device (struct device *d, Lisp_Object props)
 {
   Lisp_Object display;
-  Lisp_Object device;
   Display *dpy;
   Widget app_shell;
   int argc;
@@ -581,8 +580,6 @@
   }
 #endif /* HAVE_SHLIB and LWLIB_USES_ATHENA and not HAVE_ATHENA_3D */
 
-
-  device = wrap_device (d);
   display = DEVICE_CONNECTION (d);
 
   allocate_x_device_struct (d);
@@ -886,14 +883,12 @@
 static void
 x_delete_device (struct device *d)
 {
-  Lisp_Object device;
   Display *display;
 #ifdef FREE_CHECKING
   extern void (*__free_hook) (void *);
   int checking_free;
 #endif
 
-  device = wrap_device (d);
   display = DEVICE_X_DISPLAY (d);
 
   if (display)