only set type faces where needed

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6341 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2004-05-28 02:50:48 +00:00 · 2004-05-28 02:50:48 +00:00 · 109b31b410
parent 5fb1b8db79
commit 109b31b410
1 changed files with 2 additions and 1 deletions
--- a/emacs/caml-font.el
+++ b/emacs/caml-font.el
@ -2,8 +2,9 @@

 (cond
 ((x-display-color-p)
+  (require 'font-lock)
  (cond
-   ((not (memq 'font-lock-type-face (face-list)))
+   ((not (boundp 'font-lock-type-face))
    ; make the necessary faces
    (make-face 'Firebrick)
    (set-face-foreground 'Firebrick "Firebrick")