comparison src/device-x.c @ 48:56c54cf7c5b6 r19-16b90

Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 7e54bd776075
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
368 Lisp_Object devcons, concons; 368 Lisp_Object devcons, concons;
369 /* #### handle deleting last X device */ 369 /* #### handle deleting last X device */
370 Vdefault_x_device = Qnil; 370 Vdefault_x_device = Qnil;
371 DEVICE_LOOP_NO_BREAK (devcons, concons) 371 DEVICE_LOOP_NO_BREAK (devcons, concons)
372 { 372 {
373 if (DEVICE_X_P (XDEVICE (XCAR (devcons)))) 373 if (DEVICE_X_P (XDEVICE (XCAR (devcons))) &&
374 !EQ (device, XCAR (devcons)))
374 { 375 {
375 Vdefault_x_device = XCAR (devcons); 376 Vdefault_x_device = XCAR (devcons);
376 goto double_break; 377 goto double_break;
377 } 378 }
378 } 379 }