#xyzzy recenter-toggle

gistfile1.cl

(defun recenter (&optional arg)
  (interactive "p")
  (save-excursion
    (scroll-window (- (get-window-line)
                      (cond (arg
                             (if (minusp arg)
                                 (max (- (window-height) arg) 0)
                               (min arg (1- (window-height)))))
                            ((eq *last-command* 'recenter)
                             (cond ((= (get-window-line) (truncate (window-height) 2))
                                    0)
                                   ((<= (get-window-line) *scroll-margin*)
                                    (1- (window-height)))
                                   (t
                                    (truncate (window-height) 2))))
                            (t
                             (truncate (window-height) 2)))))))

いつのまにかemacsのrecenterがトグルするようになっているのに気づいたのでてきとーに実装。
ファイルの行数が少ないときの動作が手抜き。