Mercurial > hg > xemacs-beta

comparison src/device-msw.c @ 5117:3742ea8250b5 ben-lisp-object ben-lisp-object-final-ws-year-2005

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checking in final CVS version of workspace 'ben-lisp-object'
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 00:20:27 -0600
parents facf3239ba30
children e0db3c197671
comparison
equal deleted inserted replaced
5116:e56f73345619 5117:3742ea8250b5
1173 dm->devmode ? memory_hash (dm->devmode, XDEVMODE_SIZE (dm)) 1173 dm->devmode ? memory_hash (dm->devmode, XDEVMODE_SIZE (dm))
1174 : 0, 1174 : 0,
1175 internal_hash (dm->printer_name, depth + 1)); 1175 internal_hash (dm->printer_name, depth + 1));
1176 } 1176 }
1177 1177
1178 DEFINE_LRECORD_IMPLEMENTATION ("msprinter-settings", devmode, 1178 DEFINE_NONDUMPABLE_LISP_OBJECT ("msprinter-settings", devmode,
1179 0, /*dumpable-flag*/ 1179 mark_devmode, print_devmode,
1180 mark_devmode, print_devmode, finalize_devmode, 1180 finalize_devmode,
1181 equal_devmode, hash_devmode, 1181 equal_devmode, hash_devmode,
1182 devmode_description, 1182 devmode_description,
1183 Lisp_Devmode); 1183 Lisp_Devmode);
1184 1184
1185 static Lisp_Object 1185 static Lisp_Object
1186 allocate_devmode (DEVMODEW* src_devmode, int do_copy, 1186 allocate_devmode (DEVMODEW* src_devmode, int do_copy,
1187 Lisp_Object src_name, struct device *d) 1187 Lisp_Object src_name, struct device *d)
1188 { 1188 {
1189 Lisp_Devmode *dm; 1189 Lisp_Object obj = ALLOC_LISP_OBJECT (devmode);
1190 1190 Lisp_Devmode *dm = XDEVMODE (obj);
1191 dm = ALLOC_LCRECORD_TYPE (Lisp_Devmode, &lrecord_devmode);
1192 1191
1193 if (d) 1192 if (d)
1194 dm->device = wrap_device (d); 1193 dm->device = wrap_device (d);
1195 else 1194 else
1196 dm->device = Qnil; 1195 dm->device = Qnil;
1205 else 1204 else
1206 { 1205 {
1207 dm->devmode = src_devmode; 1206 dm->devmode = src_devmode;
1208 } 1207 }
1209 1208
1210 return wrap_devmode (dm); 1209 return obj;
1211 } 1210 }
1212 1211
1213 DEFUN ("msprinter-settings-copy", Fmsprinter_settings_copy, 1, 1, 0, /* 1212 DEFUN ("msprinter-settings-copy", Fmsprinter_settings_copy, 1, 1, 0, /*
1214 Create and returns an exact copy of a printer settings object. 1213 Create and returns an exact copy of a printer settings object.
1215 */ 1214 */
1341 /************************************************************************/ 1340 /************************************************************************/
1342 1341
1343 void 1342 void
1344 syms_of_device_mswindows (void) 1343 syms_of_device_mswindows (void)
1345 { 1344 {
1346 INIT_LRECORD_IMPLEMENTATION (devmode); 1345 INIT_LISP_OBJECT (devmode);
1347 1346
1348 DEFSUBR (Fmsprinter_get_settings); 1347 DEFSUBR (Fmsprinter_get_settings);
1349 DEFSUBR (Fmsprinter_select_settings); 1348 DEFSUBR (Fmsprinter_select_settings);
1350 DEFSUBR (Fmsprinter_apply_settings); 1349 DEFSUBR (Fmsprinter_apply_settings);
1351 DEFSUBR (Fmsprinter_settings_copy); 1350 DEFSUBR (Fmsprinter_settings_copy);