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 |
|
|