/[emacs]/emacs/lisp/progmodes/cperl-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/cperl-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by rms, Wed Nov 21 11:15:46 2001 UTC revision 1.28 by rms, Mon Dec 31 20:35:49 2001 UTC
# Line 552  when syntaxifying a chunk of buffer." Line 552  when syntaxifying a chunk of buffer."
552    
553        (defface cperl-nonoverridable-face        (defface cperl-nonoverridable-face
554          `((((class grayscale) (background light))          `((((class grayscale) (background light))
555             (:background "Gray90" :italic t :underline t))             (:background "Gray90" :slant italic :underline t))
556            (((class grayscale) (background dark))            (((class grayscale) (background dark))
557             (:foreground "Gray80" :italic t :underline t :bold t))             (:foreground "Gray80" :slant italic :underline t :weight bold))
558            (((class color) (background light))            (((class color) (background light))
559             (:foreground "chartreuse3"))             (:foreground "chartreuse3"))
560            (((class color) (background dark))            (((class color) (background dark))
561             (:foreground ,cperl-dark-foreground))             (:foreground ,cperl-dark-foreground))
562            (t (:bold t :underline t)))            (t (:weight bold :underline t)))
563          "Font Lock mode face used to highlight array names."          "Font Lock mode face used to highlight array names."
564          :group 'cperl-faces)          :group 'cperl-faces)
565    
566        (defface cperl-array-face        (defface cperl-array-face
567          `((((class grayscale) (background light))          `((((class grayscale) (background light))
568             (:background "Gray90" :bold t))             (:background "Gray90" :weight bold))
569            (((class grayscale) (background dark))            (((class grayscale) (background dark))
570             (:foreground "Gray80" :bold t))             (:foreground "Gray80" :weight bold))
571            (((class color) (background light))            (((class color) (background light))
572             (:foreground "Blue" :background "lightyellow2" :bold t))             (:foreground "Blue" :background "lightyellow2" :weight bold))
573            (((class color) (background dark))            (((class color) (background dark))
574             (:foreground "yellow" :background ,cperl-dark-background :bold t))             (:foreground "yellow" :background ,cperl-dark-background :weight bold))
575            (t (:bold t)))            (t (:weight bold)))
576          "Font Lock mode face used to highlight array names."          "Font Lock mode face used to highlight array names."
577          :group 'cperl-faces)          :group 'cperl-faces)
578    
579        (defface cperl-hash-face        (defface cperl-hash-face
580          `((((class grayscale) (background light))          `((((class grayscale) (background light))
581             (:background "Gray90" :bold t :italic t))             (:background "Gray90" :weight bold :slant italic))
582            (((class grayscale) (background dark))            (((class grayscale) (background dark))
583             (:foreground "Gray80" :bold t :italic t))             (:foreground "Gray80" :weight bold :slant italic))
584            (((class color) (background light))            (((class color) (background light))
585             (:foreground "Red" :background "lightyellow2" :bold t :italic t))             (:foreground "Red" :background "lightyellow2" :weight bold :slant italic))
586            (((class color) (background dark))            (((class color) (background dark))
587             (:foreground "Red" :background ,cperl-dark-background :bold t :italic t))             (:foreground "Red" :background ,cperl-dark-background :weight bold :slant italic))
588            (t (:bold t :italic t)))            (t (:weight bold :slant italic)))
589          "Font Lock mode face used to highlight hash names."          "Font Lock mode face used to highlight hash names."
590          :group 'cperl-faces)))          :group 'cperl-faces)))
591    

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26