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

[Miles Bader]

Index: emacs/lisp/font-lock.el
diff -c emacs/lisp/font-lock.el:1.211.2.2 emacs/lisp/font-lock.el:1.211.2.3
*** emacs/lisp/font-lock.el:1.211.2.2   Fri Apr 16 12:49:50 2004
--- emacs/lisp/font-lock.el     Mon Jun 28 07:28:40 2004
***************
*** 1562,1578 ****
       (:foreground "DimGray" :weight bold :slant italic))
      (((class grayscale) (background dark))
       (:foreground "LightGray" :weight bold :slant italic))
!     (((class color) (min-colors 88) (background light)) 
       (:foreground "Firebrick"))
!     (((class color) (min-colors 88) (background dark)) 
       (:foreground "chocolate1"))
!     (((class color) (min-colors 16) (background light)) 
       (:foreground "red"))
!     (((class color) (min-colors 16) (background dark)) 
       (:foreground "red1"))
!     (((class color) (min-colors 8) (background light)) 
       (:foreground "red"))
!     (((class color) (min-colors 8) (background dark)) 
       (:foreground "red1"))
      (t (:weight bold :slant italic)))
    "Font Lock mode face used to highlight comments."
--- 1562,1578 ----
       (:foreground "DimGray" :weight bold :slant italic))
      (((class grayscale) (background dark))
       (:foreground "LightGray" :weight bold :slant italic))
!     (((class color) (min-colors 88) (background light))
       (:foreground "Firebrick"))
!     (((class color) (min-colors 88) (background dark))
       (:foreground "chocolate1"))
!     (((class color) (min-colors 16) (background light))
       (:foreground "red"))
!     (((class color) (min-colors 16) (background dark))
       (:foreground "red1"))
!     (((class color) (min-colors 8) (background light))
       (:foreground "red"))
!     (((class color) (min-colors 8) (background dark))
       (:foreground "red1"))
      (t (:weight bold :slant italic)))
    "Font Lock mode face used to highlight comments."
***************
*** 1673,1685 ****
    '((((class color) (min-colors 88) (background light)) (:foreground "Red" 
:weight bold))
      (((class color) (min-colors 88) (background dark)) (:foreground "Pink" 
:weight bold))
      (((class color) (min-colors 16) (background light)) (:foreground "Red" 
:weight bold))
!     (((class color) (min-colors 16) (background dark)) (:foreground "Pink" 
:weight bold))    (((class color) (min-colors 8)) (:foreground "red"))
      (t (:inverse-video t :weight bold)))
    "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)
  
--- 1673,1686 ----
    '((((class color) (min-colors 88) (background light)) (:foreground "Red" 
:weight bold))
      (((class color) (min-colors 88) (background dark)) (:foreground "Pink" 
:weight bold))
      (((class color) (min-colors 16) (background light)) (:foreground "Red" 
:weight bold))
!     (((class color) (min-colors 16) (background dark)) (:foreground "Pink" 
:weight bold))
!     (((class color) (min-colors 8)) (:foreground "red"))
      (t (:inverse-video t :weight bold)))
    "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)
  
***************
*** 1910,1915 ****
--- 1911,1917 ----
                    "proclaim" "declaim" "declare" "symbol-macrolet"
                    "lexical-let" "lexical-let*" "flet" "labels" "compiler-let"
                    "destructuring-bind" "macrolet" "tagbody" "block"
+                   "multiple-value-bind"
                    "return" "return-from"
                    "with-accessors" "with-compilation-unit"
                    "with-condition-restarts" "with-hash-table-iterator"