X上のEmacsでホイールマウス

(save-selected-window (select-window (car (car (cdr event)))) (cond *1 *2 *3 *4 *5 ((eq (car event) 'triple-mouse-5) (scroll-up 4)))))(define-key global-map [mouse-4] 'wheel-scroll)(define-key global-map [mouse-5] 'wheel-scroll)(define-key global-map [vertical-scroll-bar mouse-4] 'wheel-scroll)(define-key global-map [vertical-scroll-bar mouse-5] 'wheel-scroll)

*1:eq (car event) 'mouse-4) (scroll-down 1

*2:eq (car event) 'double-mouse-4) (scroll-down 2

*3:eq (car event) 'triple-mouse-4) (scroll-down 4

*4:eq (car event) 'mouse-5) (scroll-up 1

*5:eq (car event) 'double-mouse-5) (scroll-up 2