[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el

[Richard M. Stallman]

Index: emacs/lisp/progmodes/cperl-mode.el
diff -c emacs/lisp/progmodes/cperl-mode.el:1.27 
emacs/lisp/progmodes/cperl-mode.el:1.28
*** emacs/lisp/progmodes/cperl-mode.el:1.27     Wed Nov 21 06:15:46 2001
--- emacs/lisp/progmodes/cperl-mode.el  Mon Dec 31 15:35:49 2001
***************
*** 552,591 ****
  
        (defface cperl-nonoverridable-face
        `((((class grayscale) (background light))
!          (:background "Gray90" :italic t :underline t))
          (((class grayscale) (background dark))
!          (:foreground "Gray80" :italic t :underline t :bold t))
          (((class color) (background light))
           (:foreground "chartreuse3"))
          (((class color) (background dark))
           (:foreground ,cperl-dark-foreground))
!         (t (:bold t :underline t)))
        "Font Lock mode face used to highlight array names."
        :group 'cperl-faces)
  
        (defface cperl-array-face
        `((((class grayscale) (background light))
!          (:background "Gray90" :bold t))
          (((class grayscale) (background dark))
!          (:foreground "Gray80" :bold t))
          (((class color) (background light))
!          (:foreground "Blue" :background "lightyellow2" :bold t))
          (((class color) (background dark))
!          (:foreground "yellow" :background ,cperl-dark-background :bold t))
!         (t (:bold t)))
        "Font Lock mode face used to highlight array names."
        :group 'cperl-faces)
  
        (defface cperl-hash-face
        `((((class grayscale) (background light))
!          (:background "Gray90" :bold t :italic t))
          (((class grayscale) (background dark))
!          (:foreground "Gray80" :bold t :italic t))
          (((class color) (background light))
!          (:foreground "Red" :background "lightyellow2" :bold t :italic t))
          (((class color) (background dark))
!          (:foreground "Red" :background ,cperl-dark-background :bold t 
:italic t))
!         (t (:bold t :italic t)))
        "Font Lock mode face used to highlight hash names."
        :group 'cperl-faces)))
  
--- 552,591 ----
  
        (defface cperl-nonoverridable-face
        `((((class grayscale) (background light))
!          (:background "Gray90" :slant italic :underline t))
          (((class grayscale) (background dark))
!          (:foreground "Gray80" :slant italic :underline t :weight bold))
          (((class color) (background light))
           (:foreground "chartreuse3"))
          (((class color) (background dark))
           (:foreground ,cperl-dark-foreground))
!         (t (:weight bold :underline t)))
        "Font Lock mode face used to highlight array names."
        :group 'cperl-faces)
  
        (defface cperl-array-face
        `((((class grayscale) (background light))
!          (:background "Gray90" :weight bold))
          (((class grayscale) (background dark))
!          (:foreground "Gray80" :weight bold))
          (((class color) (background light))
!          (:foreground "Blue" :background "lightyellow2" :weight bold))
          (((class color) (background dark))
!          (:foreground "yellow" :background ,cperl-dark-background :weight 
bold))
!         (t (:weight bold)))
        "Font Lock mode face used to highlight array names."
        :group 'cperl-faces)
  
        (defface cperl-hash-face
        `((((class grayscale) (background light))
!          (:background "Gray90" :weight bold :slant italic))
          (((class grayscale) (background dark))
!          (:foreground "Gray80" :weight bold :slant italic))
          (((class color) (background light))
!          (:foreground "Red" :background "lightyellow2" :weight bold :slant 
italic))
          (((class color) (background dark))
!          (:foreground "Red" :background ,cperl-dark-background :weight bold 
:slant italic))
!         (t (:weight bold :slant italic)))
        "Font Lock mode face used to highlight hash names."
        :group 'cperl-faces)))