(make_lispy_event) <mouse-wheel>: Set count to 1

for event-click-count.

diff --git a/src/keyboard.c b/src/keyboard.c
index d1c3681fdbc5b91f75354aca5041bfc93fa225cc..90b83560cf8e9d2b77dddf65daa8aad284e1e74c 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -5285,8 +5285,10 @@ make_lispy_event (event)
                                      &mouse_wheel_syms, 1);
          return Fcons (head,
                        Fcons (position,
-                              Fcons (make_number (event->code),
-                                     Qnil)));
+                              /* Insert 1 here so event-click-count works.  */
+                              Fcons (make_number (1),
+                                     Fcons (make_number (event->code),
+                                            Qnil))));
        }
       }
 #endif /* WINDOWSNT */