[xyzzy:07244] Re: scroll-up, scroll-down 関数の実装

[Hiroyasu Sunohara <suno@xxxxxxxxx>]

亀井さん、おはようございます。春原@ズーです。

>こんな?
>
>    (defun scroll-up ()
>      (interactive)
>      (let ((c (goal-column)))
>	(save-excursion
>	  (scroll-window -1))
>	(unless (pos-visible-in-window-p (point))
>	  (forward-virtual-line -1))
>	(goto-virtual-column c)
>	(set-goal-column c))
>      t)

そう、こんなです。どうもありがとうございました。さっそく
.xyzzy の定義を書き直して使っています。

今後もよろしくお願いします。

--
株式会社ズー http://www.zoo.co.jp
春原 宏保 (suno@xxxxxxxxxxxxx, suno@xxxxxxxxx)