emacs-diffs
[Top][All Lists]
Advanced

[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: Sat, 18 Jan 2003 10:31:02 -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)
  
  
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]