[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/cperl-mode.el |
Date: |
Mon, 20 Jan 2003 04:29:04 -0500 |
Index: emacs/lisp/progmodes/cperl-mode.el
diff -c emacs/lisp/progmodes/cperl-mode.el:1.36
emacs/lisp/progmodes/cperl-mode.el:1.37
*** emacs/lisp/progmodes/cperl-mode.el:1.36 Mon Sep 9 15:38:22 2002
--- emacs/lisp/progmodes/cperl-mode.el Sat Jan 18 10:31:02 2003
***************
*** 544,594 ****
(repeat symbol)))))
:group 'cperl-faces)
! (if window-system
! (progn
! (defvar cperl-dark-background
! (cperl-choose-color "navy" "os2blue" "darkgreen"))
! (defvar cperl-dark-foreground
! (cperl-choose-color "orchid1" "orange"))
! (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)))
--- 544,592 ----
(repeat symbol)))))
:group 'cperl-faces)
! (defvar cperl-dark-background
! (cperl-choose-color "navy" "os2blue" "darkgreen"))
! (defvar cperl-dark-foreground
! (cperl-choose-color "orchid1" "orange"))
! (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)