Mercurial > hg > xemacs-beta

diff src/device-x.c @ 2239:465941a61859
[xemacs-hg @ 2004-08-26 21:19:19 by james] Remove two instances of unused Lisp wrappers named 'device'.
author: james
date: Thu, 26 Aug 2004 21:19:21 +0000
parents: ce294639d321
children: 61855263cb07
--- 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)