(mouse-wheel-scroll-amount): Use same definition as

mwheel.el.

lisp/ChangeLog

 2002-02-25  Jason Rumney  <jasonr@gnu.org>
+	* w32-vars.el (mouse-wheel-scroll-amount): Use same definition as
+	mwheel.el.
+
 	* language/japanese.el (iso-2022-jp-2): Add init-bol flag.
 2002-02-25  Andre Spiegel  <spiegel@gnu.org>

lisp/w32-vars.el

@@ -31,10 +31,28 @@
   :version "21.3"
   :prefix "w32")
 
-(defcustom mouse-wheel-scroll-amount 4
-  "*Number of lines to scroll per click of the mouse wheel."
-  :type 'integer
-  :group 'w32)
+;; mwheel.el should probably be adapted to accept mouse-wheel events
+;; then this could go.
+(defcustom mouse-wheel-scroll-amount '(5  ((shift) . 1) ((control) . nil))
+  "*Amount to scroll windows by when spinning the mouse wheel.
+This is actually a cons cell, where the first item is the amount to scroll
+on a normal wheel event. The rest is ignored on Windows, see mwheel.el if
+you wish to implement modifier keys."
+  :group 'w32
+  :group 'mouse
+  :type '(cons
+	  (choice :tag "Normal"
+		  (const :tag "Full screen" :value nil)
+		  (integer :tag "Specific # of lines")
+		  (float :tag "Fraction of window"))
+          (repeat
+           (cons
+            (repeat (choice :tag "modifier" (const alt) (const control) (const hyper)
+                            (const meta) (const shift) (const super)))
+            (choice :tag "scroll amount"
+                    (const :tag "Full screen" :value nil)
+                    (integer :tag "Specific # of lines")
+                    (float :tag "Fraction of window"))))))
 
 ;; Redefine the font selection to use the standard W32 dialog
 (defcustom w32-use-w32-font-dialog t