[xyzzy:06205] Re: 桁折り機能はありますか？

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

石田さん、こんにちは。

	2001年2月20日(火)[10:08:13]の、
	[xyzzy:06197] Re: 桁折り機能はありますか？
	への返事です。

| 上記の関数はどのように使うのでしょうか？

たぶん fill 系は求めているものとは若干違うような気がし
たりしなかったりしますが、とりあえず呼び方はこんな感じ。

  (let ((fill-column 60))
    (declare (special fill-column))
    (fill-region (point-min) (point-max)))

で、単純にぶった切っていくだけなら、

  (while (not (eobp))
    (goto-column 60)
    (if (eolp)
	(forward-char 1)
      (insert #\LFD)))

とか、禁則処理をするなら

  (while (not (eobp))
    (kinsoku-goto-column 60)
    (unless (prog1
		(eolp)
	      (forward-char 1))
      (insert #\LFD)))

とか。

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