# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1014679064 0
# Node ID 1c217acd2f6f49e32e71d055edaea19080345fc9
# Parent  fbdf4317e25fd9628c46797096230ef43d6f0883
(mouse-wheel-scroll-amount): Use same definition as
mwheel.el.

diff -r fbdf4317e25f -r 1c217acd2f6f lisp/w32-vars.el
--- a/lisp/w32-vars.el	Mon Feb 25 22:52:54 2002 +0000
+++ b/lisp/w32-vars.el	Mon Feb 25 23:17:44 2002 +0000
@@ -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