[xyzzy:03841] fill

[Nakanishi Takahiro <naka@xxxxxxxxxxxxx>]

はじめまして。中西と申します。

xyzzyのauto-fill-modeは、文字を何か入力するたびにfill動作を行うため、
fill-columnに達した行の途中で文字を追加すると
こ
ん
な
ふ
う
に
一文字一行という行がたくさん出てきて、びっくりしてしまいます。
fill.lのこのへん↓を
(defun do-auto-fill (c)
  (unless (plusp fill-column)
    (return-from do-auto-fill nil))
  (when (or (member c '(#\SPC #\TAB #\LFD))
		 (and (or (kanji-char-p c)
			  (kana-char-p c))
		      (not (listen *keyboard*))))

こんなふう↓に
(defun do-auto-fill (c)
  (unless (plusp fill-column)
    (return-from do-auto-fill nil))
  (when (and (or (member c '(#\SPC #\TAB #\LFD))
		 (and (or (kanji-char-p c)
			  (kana-char-p c))
		      (not (listen *keyboard*))))
	     (< fill-column (current-column)))

すると、カーソルがfill-columnの向こうにいくまで
fill動作を行わないのでいいと思います。

これをパッケージに組み込んでもらえると、個人的に
うれしいです。>亀井さん

------------------
中西隆博
naka@xxxxxxxxxxxxx