comparison src/device.c @ 444:576fb035e263 r21-2-37

Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 0784d089fdc9
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
225 225
226 DEFUN ("dfw-device", Fdfw_device, 1, 1, 0, /* 226 DEFUN ("dfw-device", Fdfw_device, 1, 1, 0, /*
227 Given a device, frame, or window, return the associated device. 227 Given a device, frame, or window, return the associated device.
228 Return nil otherwise. 228 Return nil otherwise.
229 */ 229 */
230 (obj)) 230 (object))
231 { 231 {
232 return DFW_DEVICE (obj); 232 return DFW_DEVICE (object);
233 } 233 }
234 234
235 235
236 DEFUN ("selected-device", Fselected_device, 0, 1, 0, /* 236 DEFUN ("selected-device", Fselected_device, 0, 1, 0, /*
237 Return the device which is currently active. 237 Return the device which is currently active.