Mercurial > hg > xemacs-beta

comparison src/device-x.c @ 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 ce294639d321
children 61855263cb07
comparison
equal deleted inserted replaced
2238:e9aa19426bc9 2239:465941a61859
493 493
494 static void 494 static void
495 x_init_device (struct device *d, Lisp_Object props) 495 x_init_device (struct device *d, Lisp_Object props)
496 { 496 {
497 Lisp_Object display; 497 Lisp_Object display;
498 Lisp_Object device;
499 Display *dpy; 498 Display *dpy;
500 Widget app_shell; 499 Widget app_shell;
501 int argc; 500 int argc;
502 Extbyte **argv; 501 Extbyte **argv;
503 const char *app_class; 502 const char *app_class;
579 dll_close (xaw_dll_handle); 578 dll_close (xaw_dll_handle);
580 } 579 }
581 } 580 }
582 #endif /* HAVE_SHLIB and LWLIB_USES_ATHENA and not HAVE_ATHENA_3D */ 581 #endif /* HAVE_SHLIB and LWLIB_USES_ATHENA and not HAVE_ATHENA_3D */
583 582
584
585 device = wrap_device (d);
586 display = DEVICE_CONNECTION (d); 583 display = DEVICE_CONNECTION (d);
587 584
588 allocate_x_device_struct (d); 585 allocate_x_device_struct (d);
589 586
590 make_argc_argv (Vx_initial_argv_list, &argc, &argv); 587 make_argc_argv (Vx_initial_argv_list, &argc, &argv);
884 } 881 }
885 882
886 static void 883 static void
887 x_delete_device (struct device *d) 884 x_delete_device (struct device *d)
888 { 885 {
889 Lisp_Object device;
890 Display *display; 886 Display *display;
891 #ifdef FREE_CHECKING 887 #ifdef FREE_CHECKING
892 extern void (*__free_hook) (void *); 888 extern void (*__free_hook) (void *);
893 int checking_free; 889 int checking_free;
894 #endif 890 #endif
895 891
896 device = wrap_device (d);
897 display = DEVICE_X_DISPLAY (d); 892 display = DEVICE_X_DISPLAY (d);
898 893
899 if (display) 894 if (display)
900 { 895 {
901 #ifdef FREE_CHECKING 896 #ifdef FREE_CHECKING