マウスホイールにより連続スクロールすると画面がどんどん飛んでしまうので、それを抑制する設定。
(global-set-key [mouse-5] '(lambda () "" (interactive) (scroll-up 1))) (global-set-key [mouse-4] '(lambda () "" (interactive) (scroll-down 1))) (global-set-key [double-mouse-5] '(lambda () "" (interactive) (scroll-up 1))) (global-set-key [double-mouse-4] '(lambda () "" (interactive) (scroll-down 1))) (global-set-key [triple-mouse-5] '(lambda () "" (interactive) (scroll-up 2))) (global-set-key [triple-mouse-4] '(lambda () "" (interactive) (scroll-down 2)))
(global-set-key [wheel-down] '(lambda () "" (interactive) (scroll-up 1))) (global-set-key [wheel-up] '(lambda () "" (interactive) (scroll-down 1))) (global-set-key [double-wheel-down] '(lambda () "" (interactive) (scroll-up 1))) (global-set-key [double-wheel-up] '(lambda () "" (interactive) (scroll-down 1))) (global-set-key [triple-wheel-down] '(lambda () "" (interactive) (scroll-up 2))) (global-set-key [triple-wheel-up] '(lambda () "" (interactive) (scroll-down 2)))
