[xyzzy:01462] Re: テキストモードも色っぽくしたい

[Seiya Suda <EZU11330@xxxxxxxxxxxxxxxx>]

亀井さん、こんにちは。

        Sat, 12 Dec 1998 00:50:48 +0900 の
        [xyzzy:01460] Re: テキストモードも色っぽくしたい
        への返事です。

> | 日本語のキーワードってのはだめなのかな？
> 
> 日本語は区切りが明確でないので難しいんです。
> てことで出来まへん m(_ _)m

日本語キーワードはあきらめました。でも、色付けは、昔の
ML にあった、任意の文字列の色付けを思い出して、次のよう
にしてみました。もっと複雑なのを書けば、色狂いになれる(^^;


-------------------------------------
(defvar *text-file-foreground* 1)

(defun set-text-mode-color ()
  (interactive)
  (while (scan-buffer *gyoto-mark* :regexp t :tail nil :no-dup t)
    (set-text-color
     (point)
     (progn
       (goto-eol) (point))
     *text-file-foreground*))
  (goto-char (point-min)))

(add-hook '*text-mode-hook*
	  (function (lambda () (set-text-mode-color))))


色指定の仕方はたしか他にもありましたよね。メールを探してみます
けど。

--------
須田誠也
EZU11330@xxxxxxxxxxx