Mercurial > hg > xemacs-beta
diff src/events.c @ 943:345b7d75cab4
[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 |
line wrap: on
line diff
--- a/src/events.c Wed Jul 31 20:26:41 2002 +0000 +++ b/src/events.c Thu Aug 01 08:28:38 2002 +0000 @@ -311,14 +311,13 @@ print_motion_data (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) { char buf[64]; - Lisp_Object Vx, Vy; if (print_readably) printing_unreadable_object ("#<motion_data>"); - Vx = XMOTION_DATA_X (obj); - Vy = XMOTION_DATA_Y (obj); - sprintf (buf, "#<motion-data %ld, %ld>", (long) XINT (Vx), (long) XINT (Vy)); + sprintf (buf, "#<motion-data %ld, %ld>", + (long) XMOTION_DATA_X (obj), + (long) XMOTION_DATA_Y (obj)); write_c_string (printcharfun, buf); } @@ -329,7 +328,7 @@ if (print_readably) printing_unreadable_object ("#<process_data>"); - write_c_string (print_readably, "#<process-data "); + write_c_string (printcharfun, "#<process-data "); print_internal (XPROCESS_DATA_PROCESS (obj), printcharfun, 1); write_c_string (printcharfun, ">"); } @@ -1545,7 +1544,7 @@ XSET_MISC_USER_DATA_FUNCTION (data, Qnil); XSET_MISC_USER_DATA_OBJECT (data, Qnil); - XSET_MISC_USER_DATA_BUTTON (data, Qnil); + XSET_MISC_USER_DATA_BUTTON (data, 0); XSET_MISC_USER_DATA_MODIFIERS (data, 0); XSET_MISC_USER_DATA_X (data, 0); XSET_MISC_USER_DATA_Y (data, 0);