mouse-wheel-scroll

[Tak Kunihiro]

I propose to change default of two parameters related to
mouse-wheel-scroll.

With a modern mouse or/and track-pad equipped with laptop, I found
scrolling works better with following setup

 mouse-wheel-scroll-amount '(1 ((shift) . 5) ((control) . nil))
 mouse-wheel-progressive-speed nil

instead of current default as shown below.

 mouse-wheel-scroll-amount '(5 ((shift) . 1) ((control) . nil))
 mouse-wheel-progressive-speed t

I think mount of scrolling should be rather determined by operating
system, before Emacs.  How I propose to change default is, I (who is
mouse lover) took couple of years to realize this setup and I do not get 
lost in scroll anymore.  Those who are not mouse lover do not care the
default anyway.



diff --git a/mwheel.el b/mwheel.el
index 9e03854..1749ca3 100644
--- a/mwheel.el
+++ b/mwheel.el
@@ -98,7 +98,7 @@ set to the event sent when clicking on the mouse wheel 
button."
   :group 'mouse
   :type 'number)

-(defcustom mouse-wheel-scroll-amount '(5 ((shift) . 1) ((control) . nil))
+(defcustom mouse-wheel-scroll-amount '(1 ((shift) . 5) ((control) . nil))
   "Amount to scroll windows by when spinning the mouse wheel.
 This is an alist mapping the modifier key to the amount to scroll when
 the wheel is moved with the modifier key depressed.
@@ -134,7 +134,7 @@ less than a full screen."
                     (float :tag "Fraction of window")))))
   :set 'mouse-wheel-change-button)

-(defcustom mouse-wheel-progressive-speed t
+(defcustom mouse-wheel-progressive-speed nil
   "If non-nil, the faster the user moves the wheel, the faster the scrolling.
 Note that this has no effect when `mouse-wheel-scroll-amount' specifies
 a \"near full screen\" scroll or when the mouse wheel sends key instead