comparison src/device.c @ 373:6240c7796c7a r21-2b2

Import from CVS: tag r21-2b2
author cvs
date Mon, 13 Aug 2007 11:04:06 +0200
parents 558f606b08ae
children 8626e4521993
comparison
equal deleted inserted replaced
372:49e1ed2d7ed8 373:6240c7796c7a
815 an enqueued magic-eval event. */ 815 an enqueued magic-eval event. */
816 816
817 void 817 void
818 io_error_delete_device (Lisp_Object device) 818 io_error_delete_device (Lisp_Object device)
819 { 819 {
820 /* Note: it's the console that should get deleted, but
821 delete_device_internal() contains a hack that also deletes the
822 console when called from this function. */
820 delete_device_internal (XDEVICE (device), 1, 0, 1); 823 delete_device_internal (XDEVICE (device), 1, 0, 1);
821 } 824 }
822 825
823 DEFUN ("delete-device", Fdelete_device, 1, 2, 0, /* 826 DEFUN ("delete-device", Fdelete_device, 1, 2, 0, /*
824 Delete DEVICE, permanently eliminating it from use. 827 Delete DEVICE, permanently eliminating it from use.