emacs で一行ずつスクロールしたい

http://www.cozmixng.org/~kou/emacs/dot_emacs から色々調達

;;; 色を付ける                                                         
(global-font-lock-mode t)
(setq font-lock-support-mode 'fast-lock-mode)
(setq font-lock-maximum-decoration t)
(setq fast-lock-cache-directories '("~/.emacs-flc" "."))

;;; 対応する括弧を光らせる。                                           
(show-paren-mode 1)

;;; 終了時にオートセーブファイルを消す                                 
(setq delete-auto-save-files t)

;;; カーソルの点滅を止める                                             
(blink-cursor-mode 0)

;;; カーソルの位置が何文字目かを表示する                               
(column-number-mode t)

;;; カーソルの位置が何行目かを表示する                                 
(line-number-mode t)


;;; 最終更新日の自動挿入                                               
;;;   ファイルの先頭から 8 行以内に Time-stamp: <> または              
;;;   Time-stamp: " " と書いてあれば、セーブ時に自動的に日付が挿入され\
る                                                                     

(require 'time-stamp)

;; 日本語で日付を入れたくないのでlocaleをCにする                       
(defun time-stamp-with-locale-c ()
  (let ((system-time-locale "C"))
    (time-stamp)
    nil))

(if (not (memq 'time-stamp-with-locale-c write-file-hooks))
    (add-hook 'write-file-hooks 'time-stamp-with-locale-c))

(setq time-stamp-format "%3a %3b %02d %02H:%02M:%02S %Z %:y")

;;; 最近使ったファイルを保存(M-x recentf-open-filesで開く)             
(recentf-mode)