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

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

春原さん、こんにちは。

	2001年7月2日(月)[18:10:20]の、
	[xyzzy:07235] scroll-up, scroll-down 関数の実装
	への返事です。

|   ・スクロールしてもテキストとカーソルの相対位置を変えない
|   ・画面最下行での上スクロール、画面最上行での下スクロールは
|     素直にスクロールする

こんな?

    (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)

-- 
亀井哲弥(KAMEI Tetsuya)
kamei@xxxxxxxxxxxx