[xyzzy:07795] Re: flex-fill のこと

[Masaaki KANEKO <kaneko@xxxxxxxxxxxx>]

こんにちは。名古屋の金子です。

   Masaaki KANEKO<kaneko@xxxxxxxxxxxx> wrote.
   [xyzzy:07794] flex-fill のこと
 -----------------------------------------------

> 　これは、なんとかなるものでしょうか？

　あれから、ちょっと見てみたのですが、do-auto-fill() の中で
mode-specific-indent-command を funccall しているからインデント
しているようなので、flex-fill の set-flexible-fill-prefix() でこ
れを nil にしてみました。

　以下、flex-fill.l への変更案です（僭越ですが）。

　まず、待避用の変数を作っておいて

(defvar backup-indent-command nil)

　set-flexible-fill-prefix() の中で fill-prefix に setq するタイ
ミングで mode-specific-indent-command を待避してから nil にしま
す。

(setq fill-prefix (buffer-substring (match-beginning 0) (match-end 0)))
(setq backup-indent-command 'mode-specific-indent-command)
(setq mode-specific-indent-command nil)))

　auto-fill 用のフック関数があるようなので、その中で待避していた
ものを戻します。

(defun restore-indent-command ()
  (interactive "*")
  (when (boundp 'backup-indent-command)
    (setq mode-specific-indent-command backup-indent-command)))

(add-hook 'auto-fill-hook 'restore-indent-command)

　とりあえず、うまく動いているようなのですが、何か問題はあります
でしょうか？＞識者さま

# 喜多さんも言われているように、この機能も xyzzy に標準で取り込
# まれると良いですね。

== 金子 真昭 <kaneko@xxxxxxxxxxxx>