[xyzzy:08844] 任意のリージョンの文字色にキーワード1やキーワード2の色を設定したい

[wa <wa@xxxxxxxxxxxxxxxxx>]

質問です。
任意のリージョンの文字色に、
キーワード1やキーワード2の色を設定したいのですが、
どのような関数・書式で実現できるのでしょうか。

set-text-attribute で以下のような感じでやってみたのですが、
このやり方ではキーワードの色が指定されないようです。
(set-text-attribute  FROM TO 'tag :foreground 3)
(set-text-attribute  FROM TO 'tag :foreground 4)

確認のため、下のコードを*scratch*で評価してみたのですが、
動作を見る限り、どこにもキーワード1や2の色は出てきていない感じです。
「:foreground」で指定しているのが原因のような気がしますが、
その代わりに「:keyword」と書くと、今度は、全300行が同じ色に
なってしまいます（おそらく無効なのでしょう）。

どのようにすれば、目的の動作ができるでしょうか？
ご教示をお願いします。

(progn
  (goto-char (point-min))
  (dotimes (n 300)
    (insert (format nil "~Aです\n" n))
    (backward-line)
    (set-text-attribute
     (point)
     (progn
       (goto-eol)
       (point))
     'test-tag
     :foreground n)
    (forward-line)))

　written by wa
　wa@xxxxxxxxxxxxxxxxx