# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1146811430 0
# Node ID 85887be0a943da01dd39ed87401aaaf743b08908
# Parent  8a0284e52e27ec81a70d788ff856041ce8622231
(make_lispy_event) [MAC_OS]: Get Apple event info from event->arg.

diff -r 8a0284e52e27 -r 85887be0a943 src/keyboard.c
--- a/src/keyboard.c	Fri May 05 06:43:12 2006 +0000
+++ b/src/keyboard.c	Fri May 05 06:43:50 2006 +0000
@@ -5881,8 +5881,7 @@
 	spec[1] = event->y;
 	return Fcons (Qmac_apple_event,
 		      Fcons (Fvector (2, spec),
-			     Fcons (mac_make_lispy_event_code (event->code),
-				    Qnil)));
+			     Fcons (event->arg, Qnil)));
       }
 #endif