Re: Activating Mousewheel

[Kolya Poganini]

(defvar wheel-scroll-number-of-lines 5)

(defun wheel-scroll-up-fix-point ()
  (interactive)
  (scroll-up wheel-scroll-number-of-lines)
  (forward-line wheel-scroll-number-of-lines)
  )
(defun wheel-scroll-down-fix-point ()
  (interactive)
  (scroll-up (- wheel-scroll-number-of-lines))
  (forward-line (- wheel-scroll-number-of-lines))
  )

(global-set-key [mouse-4] 'wheel-scroll-down-fix-point)
(global-set-key [mouse-5] 'wheel-scroll-up-fix-point)



Florian Lindner wrote:

> Hello,
> how can I enable the mouse wheel for scrolling (MS Intellimouse Explorer
> on USB)?
> From my X config:
> 
> Section "InputDevice"
>     Identifier "Mouse1"
>     Driver "mouse"
>     Option "Protocol" "ExplorerPS/2"
>     Option "Device" "/dev/usbmouse"
>     Option "ZAxisMapping" "4 5"
> EndSection
> 
> It works with KDE.
> 
> I've tried
> (require 'mwheel) but not effect. Emacs is 21.2, most recent release.
> Thx,
> Florian