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

[Dan Nicolaescu]

Index: emacs/lisp/progmodes/vhdl-mode.el
diff -c emacs/lisp/progmodes/vhdl-mode.el:1.25 
emacs/lisp/progmodes/vhdl-mode.el:1.26
*** emacs/lisp/progmodes/vhdl-mode.el:1.25      Fri Mar 25 10:06:23 2005
--- emacs/lisp/progmodes/vhdl-mode.el   Fri Apr  8 14:26:12 2005
***************
*** 12593,12599 ****
   'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face)
  
  (defface vhdl-font-lock-prompt-face
!   '((((class color) (background light)) (:foreground "Red" :bold t))
      (((class color) (background dark)) (:foreground "Pink" :bold t))
      (t (:inverse-video t)))
    "Font lock mode face used to highlight prompts."
--- 12593,12601 ----
   'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face)
  
  (defface vhdl-font-lock-prompt-face
!   '((((min-colors 88) (class color) (background light)) 
!      (:foreground "Red1" :bold t))
!     (((class color) (background light)) (:foreground "Red" :bold t))
      (((class color) (background dark)) (:foreground "Pink" :bold t))
      (t (:inverse-video t)))
    "Font lock mode face used to highlight prompts."
***************
*** 12634,12639 ****
--- 12636,12643 ----
  
  (defface vhdl-font-lock-reserved-words-face
    '((((class color) (background light)) (:foreground "Orange" :bold t))
+     (((min-colors 88) (class color) (background dark)) 
+      (:foreground "Yellow1" :bold t))
      (((class color) (background dark)) (:foreground "Yellow" :bold t))
      (t ()))
    "Font lock mode face used to highlight additional reserved words."
***************
*** 14975,14981 ****
    :group 'speedbar-faces)
  
  (defface vhdl-speedbar-architecture-face
!   '((((class color) (background light)) (:foreground "Blue"))
      (((class color) (background dark)) (:foreground "LightSkyBlue")))
    "Face used for displaying architecture names."
    :group 'speedbar-faces)
--- 14979,14986 ----
    :group 'speedbar-faces)
  
  (defface vhdl-speedbar-architecture-face
!   '((((min-colors 88) (class color) (background light)) (:foreground "Blue1"))
!     (((class color) (background light)) (:foreground "Blue"))
      (((class color) (background dark)) (:foreground "LightSkyBlue")))
    "Face used for displaying architecture names."
    :group 'speedbar-faces)
***************
*** 15000,15005 ****
--- 15005,15011 ----
  
  (defface vhdl-speedbar-instantiation-face
    '((((class color) (background light)) (:foreground "Brown"))
+     (((min-colors 88) (class color) (background dark)) (:foreground 
"Yellow1"))
      (((class color) (background dark)) (:foreground "Yellow")))
    "Face used for displaying instantiation names."
    :group 'speedbar-faces)
***************
*** 15017,15023 ****
    :group 'speedbar-faces)
  
  (defface vhdl-speedbar-architecture-selected-face
!   '((((class color) (background light)) (:foreground "Blue" :underline t))
      (((class color) (background dark)) (:foreground "LightSkyBlue" :underline 
t)))
    "Face used for displaying architecture names."
    :group 'speedbar-faces)
--- 15023,15031 ----
    :group 'speedbar-faces)
  
  (defface vhdl-speedbar-architecture-selected-face
!   '((((min-colors 88) (class color) (background light)) (:foreground "Blue1" 
:underline t))
!     (((min-colors 88) (class color) (background light)) (:foreground "Blue1" 
:underline t))
!     (((class color) (background light)) (:foreground "Blue" :underline t))
      (((class color) (background dark)) (:foreground "LightSkyBlue" :underline 
t)))
    "Face used for displaying architecture names."
    :group 'speedbar-faces)
***************
*** 15036,15041 ****
--- 15044,15050 ----
  
  (defface vhdl-speedbar-instantiation-selected-face
    '((((class color) (background light)) (:foreground "Brown" :underline t))
+     (((min-colors 88) (class color) (background dark)) (:foreground "Yellow1" 
:underline t))
      (((class color) (background dark)) (:foreground "Yellow" :underline t)))
    "Face used for displaying instantiation names."
    :group 'speedbar-faces)