Re: emacs et la molette

[Lucas Moulin <lucaramel@yahoo.fr>]

On 16 Oct 2002 18:01:47 +0200
Régis Grison <regis@grison.org> wrote:

> Bon, ben suis bien content de mon nouvel emacs, vu qu'on en est là,
> est-ce que quelqu'un a déjà réussi à faire marcher la molette de la
> souris ?
> 
> J'ai vu passer sur cette liste un bout de lisp à coller dans le .emacs
> mais ça n'a pas marché chez moi. Il réagit bien quand je touche à la
> molette mais c'est pour clignoter (barre en haut et barre en bas). Même
> résultat avec des lignes trouvées sur le net.
> 
> J'ai imwheel et j'uilise la molette dans pratiquement tous mes
> programmes sans problème. C'est une logitech sans fil de base.
> 
> A mon avis, c'est emacs qui reçoit l'info et sait pas quoi en faire...
> 
> Régis.


Avec ça, ça devrait marcher (c'est mon .emacs complet) :

 ;; Gestion de la roulette de la souris avec plusieurs vitesses
 ;; control + scroll      : grande vitesse
 ;; shift + scroll        : petite vitesse
 ;; scroll seul           : vitesse normale

 (defun up-slightly () (interactive) (scroll-up 5))
 (defun down-slightly () (interactive) (scroll-down 5))
 (global-set-key [mouse-4] 'down-slightly)
 (global-set-key [mouse-5] 'up-slightly)

 (defun up-one () (interactive) (scroll-up 1))
 (defun down-one () (interactive) (scroll-down 1))
 (global-set-key [S-mouse-4] 'down-one)
 (global-set-key [S-mouse-5] 'up-one)

 (defun up-a-lot () (interactive) (scroll-up))
 (defun down-a-lot () (interactive) (scroll-down))
 (global-set-key [C-mouse-4] 'down-a-lot)
 (global-set-key [C-mouse-5] 'up-a-lot)
(custom-set-variables

  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 '(case-fold-search t)
 '(current-language-environment "Latin-9")
 '(default-input-method "latin-9-prefix")
 '(global-font-lock-mode t nil (font-lock)))
(custom-set-faces
  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 )

-- 
Lucas Moulin <lucaramel@yahoo.fr>
"I wish I had a shilling for every senseless killing, I'd buy a government" -- NOFX
__________________________________________________
Do you Yahoo!?
Faith Hill - Exclusive Performances, Videos & More
http://faith.yahoo.com