バージョン22でfontを変更しました

バージョン22になって21とかで書いてたフォントの設定（かなりでたらめ）がいよいよボロを出してきたので，こんな感じに変更しました。

(defun my-font-lock-set-face ()
  (require 'font-lock)
  (set-face-bold-p 'font-lock-keyword-face t)
  (set-face-foreground 'font-lock-keyword-face "blue")
  (set-face-foreground 'font-lock-string-face  "orange")

  (set-face-foreground 'font-lock-type-face "blue")
  (set-face-bold-p 'font-lock-type-face t)
  (set-face-foreground 'font-lock-builtin-face "blue")
  (set-face-bold-p 'font-lock-builtin-face t)
  (set-face-foreground 'font-lock-comment-face "darkgreen")
  (set-face-foreground 'font-lock-variable-name-face "black")

 
  ;; function name
  (set-face-foreground 'font-lock-function-name-face "red")
  
  )


;; font setting
;; font-lock
(add-hook 'c-mode-hook
          '(lambda () (font-lock-mode 1)))
(add-hook 'c++-mode-hook '(lambda () (font-lock-mode 1)))
(add-hook 'cc-mode-hook '(lambda () (font-lock-mode 1)))
(add-hook 'objc-mode-hook '(lambda () (font-lock-mode 1)))
(add-hook 'html-helper-mode-hook '(lambda () (font-lock-mode 1)))
(add-hook 'tex-mode-hook '(lambda () (font-lock-mode 1)))
(add-hook 'latex-mode-hook '(lambda () (font-lock-mode 1)))
(add-hook 'java-mode-hook '       (lambda () (font-lock-mode 1)))
(add-hook 'lisp-mode-hook '       (lambda () (font-lock-mode 1)))
(add-hook 'font-lock-mode-hook
          '(lambda ()
             (my-font-lock-set-face)))