[xyzzy:00284] Re: text-newline-midashi-and-create-spaces

[Masahito Henmi <henmi@xxxxxxxxxxxxx>]

須田さん、こんにちは。逸見 です。

>  (let ((c (following-char)))
>    (while (not (eq (following-char) #\LFD))
>      (if (alpha-char-p c)
>          (skip-syntax-spec-forward "w_")
>          (skip-syntax-spec-forward "jk_"))
>          (insert #\SPC)))

ここで、無限ループになっているみたいですね。

まっさきに変だと思ったのが (alpha-char-p c)がwhileループの中で
新しい値に変更されてないこと。
(alpha-char-p (following-char))に変えても駄目だったので、
もう少し調べていたら、
スペースはどうもalpha-char-pがnilになるらしい、その後
skip-syntax-spec-forward "jk_"がスペースだと一文字も動かないので、
その位置にずっと居座ったまま、ぐるぐる回っている様子でした。

------------------------------------------------------------
逸見雅人        Email   henmi@xxxxxxxxxxxxx
Masahito Henmi