🚀 go-pugleaf

今井です。

At 13 Jun 2001 13:04:01 +0900,
Seiichi Namba wrote:
> 
> The following message is a courtesy copy of an article
> that has been posted to fj.editor.xemacs as well.
> 
> 難波です。
> 
> もう失礼する、と書いたのですが、前の記事は言葉が足りないところがあるの
> で最後に多少補足しておきます。
> 

ありがとうございます。
参考になりました。

> 
> 
> PS.
> なお、ウィンドウ外へのカーソル移動の時１行だけスクロールさせるという目
> 的に関して smooth-scroll-up/down の基本的な枠組を（改造して）利用す
> るのはあまり適していないのではないか、と思います。というのは
> smooth-scroll-up/down は「行」を対象とした処理だからです。
> 
> 「ウィンドウ外へのカーソル移動の時１行だけスクロールさせる」には、「そ
> の移動でウィンドウ外へカーソル(point)が出るかどうか」を調べ、「出るな
> らスクロールする」、というようなアルゴリズムを使えば良いですね。
> 今頃になって申しわけないですが、そういうシンプルな作りであれば、
> 
> (defsubst before-the-window-p (point)
>   "Test if POINT is off the window, being smaller than window top."
>   (< point (save-excursion (move-to-window-line 0) (point))))
> 
> (defsubst after-the-window-p (point)
>   "Test if POINT is off the window, being larger than window bottom."
>   (> point (save-excursion (move-to-window-line -1) (end-of-line) (point))))
> 
> (defun sane-next-line (arg)
>   (interactive "p")
>   (let ((newpt (save-excursion (line-move arg) (point))))
>     (while (after-the-window-p newpt) (scroll-up 1))
>     (goto-char newpt)
>     (setq this-command 'next-line)
>     ()))
> 
> (defun sane-previous-line (arg)
>   (interactive "p")
>   (let ((newpt (save-excursion (line-move (- arg)) (point))))
>     (while (before-the-window-p newpt) (scroll-down 1))
>     (goto-char newpt)
>     (setq this-command 'previous-line)
>     ()))
> 
> (defun sane-newline (arg)
>   (interactive "p")
>   (let ((newpt (save-excursion (newline arg) (point))))
>     (while (after-the-window-p newpt) (scroll-up 1))
>     (goto-char newpt)
>     (setq this-command 'newline)
>     ()))
> 
> (byte-compile 'sane-previous-line)
> (byte-compile 'sane-next-line)
> (byte-compile 'sane-newline)
> 
> (global-set-key [up] 'sane-previous-line)
> (global-set-key [down] 'sane-next-line)
> (global-set-key [return] 'sane-newline)
> 
> こんな感じでご希望には沿うような気がします（結局書いちゃった）。
> 
> c-quick 全体よりは短かいですから使えればいいかもしれませんね。
> 
> 境界条件などは大してチェックしていないので、実地テスト(<, > などのテス
> トで良いかどうか)はお任せします。(interactive "_p") は直してください。

わざわざ新しい関数を書いていただいてありがとうございます。
ためしてみましたが、以前私のc-quickに対してあげた問題点が
両方解決できていました。まだ、ほとんど、使用していないですが
この二つの問題点が解決したこの新しい関数が
私の希望に一番添うものになりました。
もし、私の様なスクロールを望む人がいるならばこの関数を進めよう
と思います。

●"newline"がないため、bufferの最終行で改行すると、画面の中央にカーソルが飛んでしまう。

●bufferの最終行で C-n (c-quick-move-down)を実行すると、カーソ
ルのWindowでの位置が一段ずつ上がっていき最終的には一番上にきて
しまう。