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

[喜多 淳一郎 <kita@xxxxxxxxxxxxxxxxx>]

こんにちは．最近はめっきりROMの喜多です．

今，調査・修正に取れる時間がないので，土日に流星群を見に行きがてら調べ
てみます．

なーんて書いてたら，もう解決策が…
すみません．でも，やはり，今ちょっと時間がないので後で拝見させて頂だき
ます．

> こんにちは。名古屋の金子です。
> 
>    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>
> 
>