ホイールで一行ずつスクロールする

スムーススクロールマウスを使っていると、ホイールを回して5行単位でスクロールされるとちょっとカクカクして見づらい。なので、一行ずつスクロールするには以下を.emacsに追加する。

;; ;; マウスホイールでスクロール
(defun scroll-down-with-lines ()
  ""
  (interactive)
  (scroll-down 1)
  )
(defun scroll-up-with-lines ()
   ""
   (interactive)
   (scroll-up 1)
)
;;キーバインドは適宜変更
(global-set-key [wheel-up] 'scroll-down-with-lines)
(global-set-key [wheel-down] 'scroll-up-with-lines)

カーソルキーでも一行単位のスクロールにしたい場合は、以下も追加。

;; スクロールステップを 1 に設定
(setq scroll-step 1)

ついでにEmacs-Lispも少し覚えた。

defun

(defun 関数名 (引数)
    "関数のコメント"
    処理関数群... 
) 

interactive

• イベント監視宣言

だそうです。