From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Fri, 5 May 2006 06:43:50 +0000 (+0000)
Subject: (make_lispy_event) [MAC_OS]: Get Apple event info from event->arg.
X-Git-Tag: emacs-pretest-22.0.90~2813
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e1df0e6b91a2491a0c0ac0e8132f4958384650c;p=emacs.git

(make_lispy_event) [MAC_OS]: Get Apple event info from event->arg.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 1aca0127763..30b06ef38fc 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -5881,8 +5881,7 @@ make_lispy_event (event)
 	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