通常は、 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)))