From: Jason Rumney <jasonr@gnu.org>
Date: Sat, 4 May 2002 22:13:53 +0000 (+0000)
Subject: (make_lispy_event) <mouse-wheel>: Set count to 1
X-Git-Tag: ttn-vms-21-2-B4~15190
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=406b073da1dc907d8a8b5ff9aef9f15a48cdcc8c;p=emacs.git

(make_lispy_event) <mouse-wheel>: Set count to 1
for event-click-count.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index d1c3681fdbc..90b83560cf8 100644
--- 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 */