>>102
ありがとうございました。
少し調べて　関数を調べるときはC-h v 〜〜〜で調べるってことはわかりました！！
しかし、(add-text-properties 0 4 '(face font-lock-keyword-face) (car mode-line-buffer-identification))
がなにをやっているかがわかりませんでした。
add-text-propertiesというのを理解してないのだとおもいます。