X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/a53fe666c2586f52be26b7a3e55b28f3b1a2f9fa..4985dde2d0220cf74334261e0f558c377d295815:/src/keyboard.c

diff --git a/src/keyboard.c b/src/keyboard.c
index 1aca012776..30b06ef38f 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