15/12/20 16:08:21.40 .net
>>30
いやいやツッコミどうも！
ゼロ割とかしょうもないことしてしまった…
実用的なのを書くにはちゃんとcondition-caseしないといかんね
(defun recenter-smooth ()
(interactive)
(let* ((sub (- (save-excursion
(move-to-window-line nil)
(line-number-at-pos))
(line-number-at-pos)))
(num (abs sub)))
(dotimes (_ num)
(redisplay)
(condition-case nil
(scroll-down (/ sub num))
(beginning-of-buffer)))))