Re: XEmacs und Wheel

[Axel Duerrbaum <axeld@rts.maschinenbau.uni-kassel.de>]

Oliver Vecernik <vecernik@aon.at> writes:

> Es ist fast geschafft, der Umstieg von SuSE auf Debian. Eines der 
> kleineren Problem ist, daß das Wheel zwar unter Gnome und im Mozilla 
> funktioniert, aber XEmacs immer sagt button4 bzw. 5 not defined. Wie 
> ändert man das?

Dazu steht was in der Doku von imwheel:

http://packages.debian.org/stable/x11/imwheel.html

imwheel mußt Du aber nicht unbedingt installieren (da XFree86-4.x).


Oder Du verwendest folgenden Code-Schnipsel in Deiner .emacs (von dem
ich nicht mehr weeiss, woher er stammt):

% -----------------------------------------------------------------------
(setq unix-mouse-wheel-scroll-amount 4)

(defun unix-mouse-wheel-scroll-line-up (event)
  "Scroll the current buffer by `unix-mouse-wheel-scroll-amount`."
  (interactive "e")
  (condition-case nil
      (if (< (car (cdr (cdr event))) 0)
          (scroll-up unix-mouse-wheel-scroll-amount)
        (scroll-down unix-mouse-wheel-scroll-amount))
    (error nil)))

(defun unix-mouse-wheel-scroll-line-down (event)
  "Scroll the current buffer by `unix-mouse-wheel-scroll-amount`."
  (interactive "e")
  (condition-case nil
      (if (< (car (cdr (cdr event))) 0)
          (scroll-down unix-mouse-wheel-scroll-amount)
        (scroll-up unix-mouse-wheel-scroll-amount))   
    (error nil)))

;; Bind the "mouse-wheel" event:
(global-set-key [mouse-4] `unix-mouse-wheel-scroll-line-up)
(global-set-key [mouse-5] `unix-mouse-wheel-scroll-line-down)
% -----------------------------------------------------------------------

Hoffe, das obige funktioniert auch mit XEmacs. Ich benutze immer nur
Emacs.

MfG,
AxelD

-- 
Axel Dürrbaum / Universität Kassel / FB 15 - RTS Regelungstechnik
Mönchebergstraße 7 / 34109 Kassel / Germany / Technik I/II / Raum 2602
phone:+49 561 804 3261  eMail:axeld@uni-kassel.de