[xyzzy:05277] text-color で便乗質問

["Goddy" <gilead@xxxxxxxxxxxxxxx>]

お世話になります。
ｘｙｚｚｙ初心者です。

数十文字のテキストファイルのあちこちに
下記のプログラムで色をつけて、その後で
別のプログラムで、先頭から1文字づつscanして
色付きとそうでないものを判別しながら、データとして
取り込みたいのですが、どうすればいいのでしょうか？
get-text-attributeは、無いんですよね？


(defun set-red ()
  (interactive)
  (set-text-attribute (point) (1+(point)) 'api  :foreground 1 ) 
)