XFree 4 - Mausrad aktivieren

[saintjoe]

Du hast eine Wheel-Mouse, aber das Rad funktioniert nicht?
Hier die Lösung:
Editiere deine XF86Config. Scrolle bis zur Sektion

Section "InputDevice"
Identifier "Mouse0"
Driver "mouse"
Option "Device" "/dev/sysmouse"
Option "Buttons" "5"
Option "ZAxisMapping" "4 5"
EndSection

Die Einträge, um das Mausrad zu aktivieren, sind die letzten 2, also Option "Buttons" und "ZAxisMapping".

Viel Spass

 

[Uwe]

Ergänzungsvorschlag: Wie aktiviert man das Mausrad für (X-)Emacs?

PS: Die Howtos sind klasse!

 

[current]

Bin zwar vi/vim User, aber der Link http://verify.stanford.edu/satyaki/emacs/MouseWheel.html sollte dir weiterhelfen :-)

 

[madCode]

...fuer X-Emacs in .emacs

;; scroll on wheel of mouses
(define-key global-map 'button4
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-down 5)
(select-window curwin)
)))
(define-key global-map [(shift button4)]
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-down 1)
(select-window curwin)
)))
(define-key global-map [(control button4)]
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-down)
(select-window curwin)
)))

(define-key global-map 'button5
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-up 5)
(select-window curwin)
)))
(define-key global-map [(shift button5)]
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-up 1)
(select-window curwin)
)))
(define-key global-map [(control button5)]
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-up)
(select-window curwin)
)))

 

[Uwe]

Ich habs Dank eurer Hilfe hinbekommen:

in der .emacs hinzufügen:

(autoload 'mwheel-install "mwheel" "Enable mouse wheel support.") (mwheel-install)