# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1020550433 0
# Node ID dc0578719cf6558ba9a11004604af18c0c675b66
# Parent  6251eb510a3d5757b07bbfe04666ae0908912705
(make_lispy_event) <mouse-wheel>: Set count to 1
for event-click-count.

diff -r 6251eb510a3d -r dc0578719cf6 src/keyboard.c
--- a/src/keyboard.c	Sat May 04 15:42:34 2002 +0000
+++ b/src/keyboard.c	Sat May 04 22:13:53 2002 +0000
@@ -5285,8 +5285,10 @@
 				      &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 */