- 32 名前：名無しさん＠お腹いっぱい。 mailto:sage [2015/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)))))
