通常は、 William M. Perry の mwheel.el emacs パッケージを使うべきです。しかし、このリンクを動かす前に mwheel.el のベータ版 (Feb 23 1998) のローカルコピー、または下記の私が作成した未完成のコードを 使うこともできます。
.el ファイル (デフォルトは /.emacs) にどれか一つを加えてください。
;;=============================================================================
;;                    scroll on  mouse wheel
;;=============================================================================
;; scroll on wheel of mouses
(define-key global-map 'button4
  '(lambda (&rest args)
    (interactive) 
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-down 5)
      (select-window curwin)
)))
(define-key global-map [(shift button4)]
  '(lambda (&rest args)
    (interactive) 
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-down 1)
      (select-window curwin)
)))
(define-key global-map [(control button4)]
  '(lambda (&rest args)
    (interactive) 
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-down)
      (select-window curwin)
)))
(define-key global-map 'button5
  '(lambda (&rest args)
    (interactive) 
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-up 5)
      (select-window curwin)
)))
(define-key global-map [(shift button5)]
  '(lambda (&rest args)
    (interactive) 
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-up 1)
      (select-window curwin)
)))
(define-key global-map [(control button5)]
  '(lambda (&rest args)
    (interactive) 
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-up)
      (select-window curwin)
)))
そして関連する話題として、数字キーで XEmacs のナビゲートをする以下のコード も使用できます。
;;============================================================================= ;; scroll on numpad ;;============================================================================= (define-key global-map 'kp_9 'scroll-down) (define-key global-map 'kp_3 'scroll-up) (define-key global-map 'kp_6 '(lambda (&rest args) (interactive) (other-window 1))) (define-key global-map 'kp_4 '(lambda (&rest args) (interactive) (other-window -1))) (define-key global-map 'kp_2 '(lambda (&rest args) (interactive) (scroll-up 1))) (define-key global-map 'kp_8 '(lambda (&rest args) (interactive) (scroll-down 1))) (define-key global-map 'kp_7 'beginning-of-buffer) (define-key global-map 'kp_1 'end-of-buffer) (define-key global-map 'kp_5 '(lambda (&rest args) (interactive) (recenter 0)))