[xyzzy:01882] hook について (たぶん)

[Seiya Suda <EZU11330@xxxxxxxxxxxxxxxx>]

亀井さん、こんにちは。

次のような hook を設けているのですが、あるファイル
のみ hook から除外したいとき、どうすればよいかお聞
き致します。

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

このとき 英辞郎-* というファイルを除外したいときに、
次の下線部にどのようなことばを書けばいいのでしょう
か？

(add-hook '*text-mode-hook*
  (function
   (lambda ()
     (unless (string-matchp
              --------------
	  (get-buffer-file-name) "^英辞郎")
          ----------------------
	   (set-text-mode-color)))))

buffer-name か buffer-file-name か get-buffer-file-name か
find-file か、またはそのほかか、わかりません。

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