Aktivera musen i Emacs

[goranbo]

Jag vill använda musen i min emacs: rulla filen, klicka mm.

Emacs version 21.4.1
Har inte gjort någon .emacs-fil ännu, dvs inga speciella inställningar

Musen fungerar bra tex i Firefox.

Några tips?

[per9000]

Alla älskar Emacs, tyvärr vet jag inte hur du får Emacs att älska musen.

Detta borde vara ett bra ställe att börja på http://www.emacswiki.org/cgi-bin/wiki/CategoryMouse

/Per

[goranbo]

Lägg in följande i ~/.emacs:

;; Mousewheel
(defun sd-mousewheel-scroll-up (event)
  "Scroll window under mouse up by five lines."
  (interactive "e")
  (let ((current-window (selected-window)))
    (unwind-protect
        (progn
          (select-window (posn-window (event-start event)))
          (scroll-up 5))
      (select-window current-window))))

(defun sd-mousewheel-scroll-down (event)
  "Scroll window under mouse down by five lines."
  (interactive "e")
  (let ((current-window (selected-window)))
    (unwind-protect
        (progn
          (select-window (posn-window (event-start event)))
          (scroll-down 5))
      (select-window current-window))))

(global-set-key (kbd "<mouse-5>") 'sd-mousewheel-scroll-up)
(global-set-key (kbd "<mouse-4>") 'sd-mousewheel-scroll-down)