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

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

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

revision 1.43 by rfrancoise, Wed Aug 31 19:53:52 2005 UTC revision 1.44 by dann, Fri Sep 2 16:59:57 2005 UTC
# Line 12823  This does background highlighting of tra Line 12823  This does background highlighting of tra
12823   'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face)   'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face)
12824    
12825  (defface vhdl-font-lock-prompt-face  (defface vhdl-font-lock-prompt-face
12826    '((((class color) (background light)) (:foreground "Red" :bold t))    '((((min-colors 88) (class color) (background light))
     (((min-colors 88) (class color) (background light))  
12827       (:foreground "Red1" :bold t))       (:foreground "Red1" :bold t))
12828        (((class color) (background light)) (:foreground "Red" :bold t))
12829      (((class color) (background dark)) (:foreground "Pink" :bold t))      (((class color) (background dark)) (:foreground "Pink" :bold t))
12830      (t (:inverse-video t)))      (t (:inverse-video t)))
12831    "Font lock mode face used to highlight prompts."    "Font lock mode face used to highlight prompts."
# Line 15289  expansion function)." Line 15289  expansion function)."
15289    :group 'speedbar-faces)    :group 'speedbar-faces)
15290    
15291  (defface vhdl-speedbar-architecture-face  (defface vhdl-speedbar-architecture-face
15292    '((((class color) (background light)) (:foreground "Blue"))    '((((min-colors 88) (class color) (background light)) (:foreground "Blue1"))
15293      (((min-colors 88) (class color) (background light)) (:foreground "Blue1"))      (((class color) (background light)) (:foreground "Blue"))
15294        
15295      (((class color) (background dark)) (:foreground "LightSkyBlue")))      (((class color) (background dark)) (:foreground "LightSkyBlue")))
15296    "Face used for displaying architecture names."    "Face used for displaying architecture names."
15297    :group 'speedbar-faces)    :group 'speedbar-faces)
# Line 15333  expansion function)." Line 15334  expansion function)."
15334    :group 'speedbar-faces)    :group 'speedbar-faces)
15335    
15336  (defface vhdl-speedbar-architecture-selected-face  (defface vhdl-speedbar-architecture-selected-face
15337    '((((class color) (background light)) (:foreground "Blue" :underline t))    '((((min-colors 88) (class color) (background light)) (:foreground
15338      (((min-colors 88) (class color) (background light)) (:foreground "Blue1" :underline t))    "Blue1" :underline t))
15339        (((class color) (background light)) (:foreground "Blue" :underline t))
15340      (((class color) (background dark)) (:foreground "LightSkyBlue" :underline t)))      (((class color) (background dark)) (:foreground "LightSkyBlue" :underline t)))
15341    "Face used for displaying architecture names."    "Face used for displaying architecture names."
15342    :group 'speedbar-faces)    :group 'speedbar-faces)

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

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