Soporte para ratones con rueda en Emacs


Javier Ballesteros.

26 de junio de 2002
Nivel: basico
Sistema: linux
Arquitectura: todas
Distribución: todas
Sección: editores
Función: configuracion

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.

© 2001, La Espiral.