;;; -*- Mode: Emacs-Lisp -*-

;;; set colors for font-lock-mode:

(require 'font-lock)
(require 'highlight-headers)
(require 'cperl-mode)

(setq my-fixed-font "-*-fixed-medium-r-*-*-*-120-*-*-*-*-iso8859-*"
      options-save-faces 't)
(set-face-font       'default my-fixed-font)


(if (< emacs-major-version 21)  ;; xemacs21 uses more custimized faces.
    (progn
      (set-face-background 'default "black")
      (set-face-foreground 'default "goldenrod")
      
      (set-face-foreground 'bold     "gold2")
      (set-face-foreground 'modeline "blue4")
      (set-face-font       'italic   my-fixed-font)
      (set-face-font       'bold-italic  "-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*")

      (set-face-background 'zmacs-region "gray30")

      (set-face-foreground 'font-lock-comment-face "lightseagreen")
      (set-face-foreground 'font-lock-doc-string-face "lightseagreen")
      ;;(set-face-foreground 'font-lock-emphasized-face "dodgerblue")
      (set-face-foreground 'font-lock-function-name-face "cyan3")
      (set-face-foreground 'font-lock-keyword-face "green4")
      ;;(set-face-foreground 'font-lock-other-emphasized-face "goldenrod")
      ;;(set-face-foreground 'font-lock-other-type-face "tomato")
      (set-face-foreground 'font-lock-preprocessor-face "magenta3")
      (set-face-foreground 'font-lock-reference-face "steelblue")
      (set-face-foreground 'font-lock-string-face "green3")
      (set-face-foreground 'font-lock-type-face "dodgerblue")
      (set-face-foreground 'font-lock-variable-name-face "coral")

      (set-face-foreground 'pointer "gold")
      (set-face-background 'text-cursor "green3")
      ;;(set-face-foreground 'paren-match "red")
      ;;(set-face-background 'paren-match "green3")


      (set-face-foreground 'font-latex-bold-face    "brown")
      (set-face-foreground 'font-latex-italic-face  "lightcoral")
      (set-face-foreground 'font-latex-math-face    "dodgerblue")
      (set-face-foreground 'font-latex-sedate-face  "gray51")
      (set-face-foreground 'font-latex-string-face  "green3")
      (set-face-foreground 'font-latex-warning-face "red")

      (set-face-background 'cperl-here-face "gray51")
      (set-face-foreground 'cperl-here-face "green4")
))

(set-face-font 'message-cited-text my-fixed-font)
;;(set-face-font 'message-cited-text-face my-fixed-font)
(set-face-font 'message-header-contents my-fixed-font)
(set-face-font 'message-highlighted-header-contents my-fixed-font)

(setq c-font-lock-keywords    c-font-lock-keywords-2
      c++-font-lock-keywords  c++-font-lock-keywords-2
      lisp-font-lock-keywords lisp-font-lock-keywords-2)


(setq font-lock-maximum-decoration t
      font-lock-maximum-size nil)
(font-lock-mode 1)