[plamo:15264] Emacs face(プリプロセッサ)の設定

[A Matsui]

松井です．

Emacs のFaceの設定について教えて下さい．

C のファイルのプリプロセッサの表示に関して設定するにはどうすれば良いので
しょうか．他の部分の設定は，下記のようにすることで表示に反映されました．

~/.emacs

(custom-set-variables)
(custom-set-faces
 '(font-lock-comment-face ((((class color) (background light))
 (:foreground "Firebrick"))))

...その他の設定...

 '(font-lock-builtin-face ((((class color) (background light))
 (:foreground "Red")))))

font-lock.elを見ますと，プロプロセッサに関して，下記のような記述がありま
した．font-lock.el に関して修正，コンパイル等が必要になるのでしょうか．

よろしくお願いいたします．

(defconst c-font-lock-keywords-1 nil
"Subdued level highlighting for C mode.")

<省略>
(setq c-font-lock-keywords-1
  (list
   ;;
   ;; These are all anchored at the beginning of line for speed.
   ;; Note that `c++-font-lock-keywords-1' depends on
  `c-font-lock-keywords-1'.
   ;;
   ;; Fontify function name definitions (GNU style; without type on
  line).
   '("^\\(\\sw+\\)[ \t]*(" 1 font-lock-function-name-face)
   ;;
   ;; Fontify error directives.
   '("^#[ \t]*error[ \t]+\\(.+\\)" 1 font-lock-warning-face prepend)
   ;;
   ;; Fontify filenames in #include <...> preprocessor directives as
  strings.
   '("^#[ \t]*\\(import\\|include\\)[ \t]*\\(<[^>\"\n]*>?\\)"
     2 font-lock-string-face)
   ;;
   ;; Fontify function macro names.
   '("^#[ \t]*define[ \t]+\\(\\sw+\\)(" 1 font-lock-function-name-face)
   ;;
   ;; Fontify symbol names in #elif or #if ... defined preprocessor
  directives.
   '("^#[ \t]*\\(elif\\|if\\)\\>"
     ("\\<\\(defined\\)\\>[ \t]*(?\\(\\sw+\\)?" nil nil
      (1 font-lock-builtin-face) (2 font-lock-variable-name-face nil
  t)))
   ;;
   ;; Fontify otherwise as symbol names, and the preprocessor directive
  names.
   '("^#[ \t]*\\(\\sw+\\)\\>[ \t!]*\\(\\sw+\\)?"
     (1 font-lock-builtin-face) (2 font-lock-variable-name-face nil t))
   )
<省略>