Index: emacs/lisp/progmodes/vhdl-mode.el
diff -c emacs/lisp/progmodes/vhdl-mode.el:1.43
emacs/lisp/progmodes/vhdl-mode.el:1.44
*** emacs/lisp/progmodes/vhdl-mode.el:1.43 Wed Aug 31 19:53:52 2005
--- emacs/lisp/progmodes/vhdl-mode.el Fri Sep 2 16:59:57 2005
***************
*** 12823,12831 ****
'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face)
(defface vhdl-font-lock-prompt-face
! '((((class color) (background light)) (:foreground "Red" :bold t))
! (((min-colors 88) (class color) (background light))
(:foreground "Red1" :bold t))
(((class color) (background dark)) (:foreground "Pink" :bold t))
(t (:inverse-video t)))
"Font lock mode face used to highlight prompts."
--- 12823,12831 ----
'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."
***************
*** 15289,15296 ****
:group 'speedbar-faces)
(defface vhdl-speedbar-architecture-face
! '((((class color) (background light)) (:foreground "Blue"))
! (((min-colors 88) (class color) (background light)) (:foreground "Blue1"))
(((class color) (background dark)) (:foreground "LightSkyBlue")))
"Face used for displaying architecture names."
:group 'speedbar-faces)
--- 15289,15297 ----
: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)
***************
*** 15333,15340 ****
:group 'speedbar-faces)
(defface vhdl-speedbar-architecture-selected-face
! '((((class color) (background light)) (:foreground "Blue" :underline t))
! (((min-colors 88) (class color) (background light)) (:foreground "Blue1"
:underline t))
(((class color) (background dark)) (:foreground "LightSkyBlue" :underline
t)))
"Face used for displaying architecture names."
:group 'speedbar-faces)
--- 15334,15342 ----
:group 'speedbar-faces)
(defface vhdl-speedbar-architecture-selected-face
! '((((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)
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
