タッチパッドから Cocoa Emacs をスクロールさせてみた

普通に

(mouse-wheel-mode)

としただけだと、"<wheel-down> is undefined" とか "<triple-scroll-down> is undefined" とかいってスクロールしてくれない。

ならばと、こちらを参考に define してみた。

(mouse-wheel-mode)
(global-set-key [wheel-up]
                '(lambda () "" (interactive) (scroll-down 1)))
(global-set-key [wheel-down]
                '(lambda () "" (interactive) (scroll-up 1)))
(global-set-key [double-wheel-up]
                '(lambda () "" (interactive) (scroll-down 1)))
(global-set-key [double-wheel-down]
                '(lambda () "" (interactive) (scroll-up 1)))
(global-set-key [triple-wheel-up]
                '(lambda () "" (interactive) (scroll-down 2)))
(global-set-key [triple-wheel-down]
                '(lambda () "" (interactive) (scroll-up 2)))

なにこれ快適。