マウスのホイールで1行ずつスクロールさせる

Emacsを使っていて、ときどきマウスのホイールでスクロールさせることがあるのだが、これがスクロール量が大きすぎて、目的の位置に止めるのが大変でまともに使えなかった。
ということで、マウスのホイールで1行ずつスクロールさせるように設定。
参考にしたのはこのページ。というかそのままコードを使わせてもらいました。
ホイールで一行ずつスクロールする - negationの日記

; マウスホイールでスクロール
(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)

ついでに私も同じくカーソルでのスクロール量も1行に変更。