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

[Juanma Barranquero]

Index: emacs/lisp/progmodes/vhdl-mode.el
diff -c emacs/lisp/progmodes/vhdl-mode.el:1.31 
emacs/lisp/progmodes/vhdl-mode.el:1.32
*** emacs/lisp/progmodes/vhdl-mode.el:1.31      Tue May 31 04:23:10 2005
--- emacs/lisp/progmodes/vhdl-mode.el   Tue Jun 14 15:31:10 2005
***************
*** 12600,12606 ****
   '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))
--- 12600,12606 ----
   '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))
***************
*** 12643,12649 ****
  
  (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 ()))
--- 12643,12649 ----
  
  (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 ()))
***************
*** 14924,14930 ****
    "Place the entity/component under the cursor as component."
    (interactive)
    (if (not (vhdl-speedbar-check-unit 'entity))
!       (error "ERROR:  No entity/component under cursor.")
      (vhdl-speedbar-port-copy)
      (if (fboundp 'speedbar-select-attached-frame)
        (speedbar-select-attached-frame)
--- 14924,14930 ----
    "Place the entity/component under the cursor as component."
    (interactive)
    (if (not (vhdl-speedbar-check-unit 'entity))
!       (error "ERROR:  No entity/component under cursor")
      (vhdl-speedbar-port-copy)
      (if (fboundp 'speedbar-select-attached-frame)
        (speedbar-select-attached-frame)