Emacsでマウスホイールスクローリング

Emacs

Emacsでマウスを使うとかパッドでFPS(笑)並みに邪道だけど、片手にコーヒーやお菓子を持ってコードやツイッターを眺めたいときなんかにはやっぱり便利。
デフォルトの設定でスクロールすると行が飛びすぎるので、いわゆる smooth scrolling するために以下の設定をしている。

(defun mouse-scroll-down ()
  (interactive)
  (scroll-down 1))
(defun mouse-scroll-up ()
  (interactive)
  (scroll-up 1))

(global-set-key [wheel-up] 'mouse-scroll-down)
(global-set-key [wheel-down] 'mouse-scroll-up)


この設定をどこからかコピペして入れたのがもう5,6年も前(Emacs21の頃？)なので、今ならもっとシンプルに設定出来るんじゃないかと調べてみたら EmacsWiki に載ってた。

(setq mouse-wheel-scroll-amount '(1 ((shift) . 1))) ;; one line at a time
(setq mouse-wheel-progressive-speed nil) ;; don't accelerate scrolling
(setq mouse-wheel-follow-mouse 't) ;; scroll window under mouse

http://www.emacswiki.org/emacs/SmoothScrolling

こっちの方がスマートでかっこいいね。