(font-lock-preprocessor-face): New var and face.

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 194217249da4d6f444a9e791068f27c86cc89933..53babd729bdafb79ba0258dfacfc9aa7c814a687 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -339,6 +339,9 @@ If a number, only buffers greater than this size have fontification messages."
 (defvar font-lock-warning-face         'font-lock-warning-face
   "Face name to use for things that should stand out.")
 
+(defvar font-lock-preprocessor-face    'font-lock-preprocessor-face
+  "Face name to use for preprocessor directives.")
+
 (defvar font-lock-reference-face       'font-lock-constant-face)
 (make-obsolete-variable 'font-lock-reference-face 'font-lock-constant-face)
 
@@ -1620,6 +1623,11 @@ A LEVEL of nil is equal to a LEVEL of 0, a LEVEL of t is equal to
   "Font Lock mode face used to highlight warnings."
   :group 'font-lock-highlighting-faces)
 
+(defface font-lock-preprocessor-face
+  '((t :inherit 'font-lock-builtin-face))
+  "Font Lock mode face used to highlight preprocessor directives."
+  :group 'font-lock-highlighting-faces)
+
 ;;; End of Colour etc. support.
 \f
 ;;; Menu support.