Mercurial > hg > xemacs-beta

changeset 2239:465941a61859

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 e9aa19426bc9
children b42318a9a9b7
files src/ChangeLog src/device-x.c
diffstat 2 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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)