🚀 go-pugleaf

難波です。

IMAI Hidetoshi <hidepin@infonets.hiroshima-u.ac.jp> さん writes:

> 難波さんに教えていただいた
> 
> http://www.asahi-net.or.jp/~pi9s-nnb/basic4d.tar.gz
> 
> ならば動きが満足のいくものだったのでこれを参考に
> 不満な点を解消するように時間のあるときに
> .emacs を編集しようと思っています。

smooth-scroll-up をあまり変更せずに利用する、ということであれば、
smooth-scroll-up の先頭部分を

(defun smooth-scroll-up (arg)
  "Moves cursor down keeping cursor within 1/3 to 2/3 area of current window.
Scroll the window in need.
It's convenient to bind this command to down arrow key."
  (interactive "p")
  (let* ((height (1- (window-height)))
         (parity (% height 2))
         ;; `conservative-scroll' fix Wed May 16 18:36:33 2001 s.n. ->
         ;;(top-edge (/ (1- height) 4))
         (top-edge 0)
         ;;(btm-edge (+ (1+ parity) (* top-edge 3)))
         (btm-edge (- height 2))
         ;; `conservative-scroll' fix Wed May 16 18:36:33 2001 s.n. <-
         (c-line (current-line-in-window))
         (bob-not-shown ;; var. to duck ding.
          (not (pos-visible-in-window-p (point-min)))))
         ;: 以下同じ

などと直せばご希望の動作になるのかもしれません。

この程度だと無駄が多いのでもっとチューニングはできると思いますが。
要するに window からカーソルが出そうになったら、移動したい量（arg）分
だけスクロールするという内容にすれば良いようです。

なお、emacs-21 系では、line-spacing （だっけ）によって行間を変えてる時は
window-height() が何やら実状に合わない値を返す(emacs-21.0.103 を使用中)
ようなので、上の直しだけでは問題のジャンプが起きてしまいます。
smooth-scroll-up() のデフォルトの設定だと、なんか動きが違うな、位にしか
感じていなかったのですが、今回上のように直してみて気がつきました。

とりあえず（仕様であれば、本来の調整用の変数なり関数がありそうだが）、

(defun emacs21-window-height ()
  (save-excursion (move-to-window-line -1)
                    (forward-line 0)
                      (+ 3 (current-line-in-window))))

などというのも書いてみましたが、この window-height() の挙動はバグなの
か仕様なのかよく判らないので、basic.el に採用するかどうかは決めかねてい
ます。