Mercurial > hg > xemacs-beta

comparison src/events.c @ 943:345b7d75cab4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-08-01 08:28:18 by michaels] 2002-08-01 Mike Sperber <mike@xemacs.org> * event-stream.c: * event-Xt.c: * events.h: * events.c: * alloc.c: Fix various kkcc-related nits that show up in MULE and union-type builds.
author michaels
date Thu, 01 Aug 2002 08:28:38 +0000
parents c891972d07fa
children bbc2941a94d7
comparison
equal deleted inserted replaced
942:d90decf21e71 943:345b7d75cab4
309 309
310 static void 310 static void
311 print_motion_data (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 311 print_motion_data (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
312 { 312 {
313 char buf[64]; 313 char buf[64];
314 Lisp_Object Vx, Vy;
315 314
316 if (print_readably) 315 if (print_readably)
317 printing_unreadable_object ("#<motion_data>"); 316 printing_unreadable_object ("#<motion_data>");
318 317
319 Vx = XMOTION_DATA_X (obj); 318 sprintf (buf, "#<motion-data %ld, %ld>",
320 Vy = XMOTION_DATA_Y (obj); 319 (long) XMOTION_DATA_X (obj),
321 sprintf (buf, "#<motion-data %ld, %ld>", (long) XINT (Vx), (long) XINT (Vy)); 320 (long) XMOTION_DATA_Y (obj));
322 write_c_string (printcharfun, buf); 321 write_c_string (printcharfun, buf);
323 } 322 }
324 323
325 324
326 static void 325 static void
327 print_process_data (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 326 print_process_data (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
328 { 327 {
329 if (print_readably) 328 if (print_readably)
330 printing_unreadable_object ("#<process_data>"); 329 printing_unreadable_object ("#<process_data>");
331 330
332 write_c_string (print_readably, "#<process-data "); 331 write_c_string (printcharfun, "#<process-data ");
333 print_internal (XPROCESS_DATA_PROCESS (obj), printcharfun, 1); 332 print_internal (XPROCESS_DATA_PROCESS (obj), printcharfun, 1);
334 write_c_string (printcharfun, ">"); 333 write_c_string (printcharfun, ">");
335 } 334 }
336 335
337 336
1543 { 1542 {
1544 Lisp_Object data = allocate_misc_user_data (); 1543 Lisp_Object data = allocate_misc_user_data ();
1545 1544
1546 XSET_MISC_USER_DATA_FUNCTION (data, Qnil); 1545 XSET_MISC_USER_DATA_FUNCTION (data, Qnil);
1547 XSET_MISC_USER_DATA_OBJECT (data, Qnil); 1546 XSET_MISC_USER_DATA_OBJECT (data, Qnil);
1548 XSET_MISC_USER_DATA_BUTTON (data, Qnil); 1547 XSET_MISC_USER_DATA_BUTTON (data, 0);
1549 XSET_MISC_USER_DATA_MODIFIERS (data, 0); 1548 XSET_MISC_USER_DATA_MODIFIERS (data, 0);
1550 XSET_MISC_USER_DATA_X (data, 0); 1549 XSET_MISC_USER_DATA_X (data, 0);
1551 XSET_MISC_USER_DATA_Y (data, 0); 1550 XSET_MISC_USER_DATA_Y (data, 0);
1552 1551
1553 return data; 1552 return data;