Le mer 16/10/2002 � 19:07, Manganneau Emmanuel a �crit : > Salut, > > voici ce que je me suis fait: > (les touches F2 et F3 servent � modifier la vitesse du scroll) > > (setq nb-ligne-scroll 5) > > ;Function to Scroll > (defun scrollup () > (interactive) > (previous-line nb-ligne-scroll) > ) > > (defun scrolldown () > (interactive) > (next-line nb-ligne-scroll) > ) > > (defun scroll-less () > (interactive) > (setq nb-ligne-scroll (- nb-ligne-scroll 1)) > (cond ((< nb-ligne-scroll 0) > (setq nb-ligne-scroll 0)) > ) > (message "%d lignes sur mollette" nb-ligne-scroll) > ) > > (defun scroll-more () > (interactive) > (setq nb-ligne-scroll (+ nb-ligne-scroll 1)) > (cond ((> nb-ligne-scroll 15) > (setq nb-ligne-scroll 15)) > ) > (message "%d lignes sur mollette" nb-ligne-scroll) > ) > > (global-set-key [f2] 'scroll-less) > (global-set-key [f3] 'scroll-more)
Autant les touches F2 et F3 fonctionnent, autant la souris ne scrolle pas sans ctrl ou shift. A mon avis, le probl�me est pas l� mais je sais pas o� il est. J'ai essay� en interactif d'activer le mouse-wheel-mode, qu'il soit enabled ou disabled, la souris ne marche pas seule mais marche avec shift/ctrl. Bizarre. R�gis.
