[xyzzy:04023] Re: info-modoki.l

[Hiroshi Saito <HiroshiSaito@xxxxxxx>]

自己レスです。

> info-modoki.l
> ---------------------------
> -	(and (scan-buffer (concat "^■" str "[ \t]*$") :regexp t)
> +	(and (scan-buffer (concat "■" str))

これだと、file を 検索して filer がヒットしたりしちゃいますね。

見た感じ、refernce.txt には キーワードのあとに空白類が
ないようなので、

	(and (scan-buffer (concat "■" str "\n"))
	
でいけるようですが。

きちんと正規表現でやるなら、こ汚いのですがこんなかんじでしょうか。

     (save-excursion
       (set-buffer (get-buffer-create "*modoki-tmp*"))
       (insert str)
       (goto-char (point-min))
       (while (scan-buffer "\*")
         (replace-match "\\\\*"))
       (setq str (buffer-substring (point-min) (point-max)))
       (delete-buffer "*modoki-tmp*")
     )
     (and (scan-buffer (concat "^■" str "[ \t]*$") :regexp t)




-----------------------------------
サイトウ ヒロシ
HiroshiSaito@xxxxxxx