[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Activating Mousewheel
From: |
Kolya Poganini |
Subject: |
Re: Activating Mousewheel |
Date: |
Fri, 25 Oct 2002 11:47:38 -0400 |
User-agent: |
KNode/0.6.1 |
(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