[Emacs-diffs] Changes to emacs/lisp/font-lock.el

[Daniel Pfeiffer]

Index: emacs/lisp/font-lock.el
diff -c emacs/lisp/font-lock.el:1.244 emacs/lisp/font-lock.el:1.245
*** emacs/lisp/font-lock.el:1.244       Thu Apr 28 11:48:53 2005
--- emacs/lisp/font-lock.el     Thu May  5 19:01:39 2005
***************
*** 339,344 ****
--- 339,348 ----
  (defvar font-lock-warning-face                'font-lock-warning-face
    "Face name to use for things that should stand out.")
  
+ (defvar font-lock-negation-char-face  'font-lock-negation-char-face
+   "Face name to use for easy to overlook negation.
+ This can be an \"!\" or the \"n\" in \"ifndef\".")
+ 
  (defvar font-lock-preprocessor-face   'font-lock-preprocessor-face
    "Face name to use for preprocessor directives.")
  
***************
*** 386,392 ****
  
  MATCH-HIGHLIGHT should be of the form:
  
!  (MATCH FACENAME [[OVERRIDE [LAXMATCH]])
  
  MATCH is the subexpression of MATCHER to be highlighted.  FACENAME is an
  expression whose value is the face name to use.  Face default attributes
--- 390,396 ----
  
  MATCH-HIGHLIGHT should be of the form:
  
!  (MATCH FACENAME [OVERRIDE [LAXMATCH]])
  
  MATCH is the subexpression of MATCHER to be highlighted.  FACENAME is an
  expression whose value is the face name to use.  Face default attributes
***************
*** 1761,1766 ****
--- 1765,1780 ----
    "Font Lock mode face used to highlight warnings."
    :group 'font-lock-highlighting-faces)
  
+ ;; Matches font-lock-builtin-face, because that is used for #ifndef and
+ ;; font-lock-keyword-face, which alas make-mode uses for ifndef
+ (defface font-lock-negation-char-face
+   '((((class color) (min-colors 88) (background light)) (:foreground 
"VioletRed" :weight bold))
+     (((class color) (min-colors 88) (background dark)) (:foreground 
"MediumOrchid1" :weight bold))
+     (((class color) (min-colors 8)) (:foreground "red" :weight bold))
+     (t (:inverse-video t :weight bold)))
+   "Font Lock mode face used to highlight easy to overlook negation."
+   :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."