15/12/18 14:48:42.63 .net
>>22
とりあえずやっつけだったのを適切な関数とか使うようにした。普通になったか
(defun recenter-smooth ()
(interactive)
(let* ((sub (- (save-excursion
(move-to-window-line nil)
(line-number-at-pos))
(line-number-at-pos)))
(num (abs sub))
(dir (/ sub num)))
(dotimes (_ num)
(redisplay)
(scroll-down-line dir))))