(x_set_name_internal): Set icon to `text', derived from name, when

[gnu-emacs] / src / keyboard.c

diff --git a/src/keyboard.c b/src/keyboard.c
index 1aca0127763ff1a8c8957fbf15ad0ec1051b85b9..30b06ef38fcc9e0b2ad878418eaa0415ee42007d 100644 (file)
--- 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