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

[石田あきら <akira-z@xxxxxxxxxxxxxxxxx>]

xyzzyには桁折機能はありますか？

ちょっと探したんですが無いような気がしたので
最近ようやくわかってきたlispで以下のように書いたんですが
それだと、全半角の判定が無く、行に半角文字があると短くなってしまいます。
求めてるのは全角で３０文字（ｎ文字）で桁折りしたいなと思っています。
どうしたらいいでしょうか。
（なんか変な変数使っちゃてるのでもっとエレガントにしたいんですが。）

;桁折り
(defun keta-ori()
  (interactive)
  (goto-char (point-min))
  (setq psi 0 stt 0 keta 30)
  (while (not (eobp))
    (setq stt (point))
    (while (not (eolp))
      (setq psi (- (1+ (point)) stt))
      (if (not (= psi stt))
	    (if (= (mod psi (1+ keta)) 0) (insert "\n"))
      )
      (forward-char 1)
    )
    (forward-line 1)
  )
  (goto-char (point-min))
)

石田章