[xyzzy:05016] Re: スクロールマージン、快適です。

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

庄田さん、こんにちは。

	2000年8月22日(火)[22:39:23]の、
	[xyzzy:05013] Re: スクロールマージン、快適です。
	への返事です。

| ＃lisp は全然わからないので、これで良いのかどうかわかりませんが・・・

いいんじゃないでしょうか。

| 今は .xyzzy に入れてるんですけど、オプション設定で出来た方がうれ
| しい人っていないんですかね(^^ゞ

さあ?(^^; 個人的には、視点が移動するのが好みではなかっ
たりしますが。

| あれって、一番最初の文字に来て欲しいと思うのは私だけなんでしょうか？

さあ?(^^;

| ＃どこ弄れば良いのか、良くわからんかった(^^ゞ

こんな。

(defun next-page (&optional (sign 1))
  (interactive)
  (cond ((scroll-window (* (max (if *page-scroll-half-window*
				    (truncate (window-height) 2)
				  (- (window-height) *next-screen-context-lines*))
				1)
			   sign)))
	((zerop sign)
	 nil)
	((= (point) (if (plusp sign) (point-max) (point-min)))
	 nil)
	(t
	 (goto-char (if (plusp sign) (point-max) (point-min))))))

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