scroll mouse
一番簡単には ~/.emacs に次の行を書いておけば良い。
(mouse-wheel-mode)
あるいは次のようにしても良い。
下記の設定で
普通 | 5 行づつ |
Shift | 一行づつ |
Control | 半頁づつ |
となる。(多分 Mozilla もそれに近い ?)
;;; スクロールマウスの設定
(global-set-key [mouse-4] '(lambda () (interactive) (scroll-down 5)))
(global-set-key [mouse-5] '(lambda () (interactive) (scroll-up 5)))
; Shift
(global-set-key [S-mouse-4] '(lambda () (interactive) (scroll-down 1)))
(global-set-key [S-mouse-5] '(lambda () (interactive) (scroll-up 1)))
; Control
(global-set-key [C-mouse-5] '(lambda () (interactive) (scroll-up (/ (window-height) 2))))
(global-set-key [C-mouse-4] '(lambda () (interactive) (scroll-down (/ (window-height) 2))))
; Control を半頁でなく一頁づつとする時
;(global-set-key [C-mouse-4] '(lambda () (interactive) (scroll-down)))
;(global-set-key [C-mouse-5] '(lambda () (interactive) (scroll-up )))
参考:
http://www.stanford.edu/~acc/emacs.html
http://hp.vector.co.jp/authors/VA028080/wheel.html
X11 の設定も参考までに:
Section "InputDevice"
Identifier "Mouse1"
Driver "mouse"
Option "Protocol" "wsmouse"
Option "Device" "/dev/wsmouse1"
Option "ZAxisMapping" "4 5"
EndSection
(上記は NetBSD/1.6O 辺りで外部 mouse の場合)
|