Soporte para ratones con rueda en Emacs

Javier Ballesteros

26 de junio de 2002

Este breve documento explica como incluir soporte para los ratones con rueda bajo el editor Emacs bajo las X.

Soportando el ratón con rueda

Para que usando Emacs bajo el entorno gráfico podamos usar la rueda del ratón debemos de incuir un pequeño listado en Lisp dentro de nuestro fichero de configuración en ~/.emacs. A continuación se muestra el código:

(defcustom mouse-wheel-distance 10
"*Number of lines, maximum, to scroll the window when you move the mouse =
wheel."
:type `integer
:group `mouse)
;--------------------------
(defun mouse-wheelscroll-down ()
" A function to scroll up or down in response to the mouse wheel."
(interactive)
(scroll-down
(min mouse-wheel-distance
(max 1 (- (window-height)
next-screen-context-lines)))))
;--------------------------
(defun mouse-wheelscroll-up ()
" A function to scroll up or down in response to the mouse wheel."
(interactive)
(scroll-up
(min mouse-wheel-distance
(max 1 (- (window-height)
next-screen-context-lines)))))
(global-set-key [mouse-4] (function mouse-wheelscroll-down))
(global-set-key [mouse-5] (function mouse-wheelscroll-up))

Este código ha sido sacado de un mensaje de correo de Eric Hopper en la lista de bug-gnu-emacs.




Página creada en: 2004-11-04 11:41:03 +0000
© Copyright 2001, 2002, 2003, 2004, La Espiral, debian-laespiral@lists.debian.org
Permitida la copia y distribución textual, integral, siempre y cuando se mantenga este aviso.