(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…

Tiarra む。plum 後継によさげだ。まだ試してないが。む、AquaSKKの人か。