# HG changeset patch # User Juanma Barranquero # Date 1118763070 0 # Node ID 252224857a7bd33d3593418e0906120460f1593b # Parent 6cec4d429edd09c8e3d505bf452ef844dbb37a1d (vhdl-speedbar-place-component): Follow error conventions. diff -r 6cec4d429edd -r 252224857a7b lisp/progmodes/vhdl-mode.el --- a/lisp/progmodes/vhdl-mode.el Tue Jun 14 15:29:27 2005 +0000 +++ b/lisp/progmodes/vhdl-mode.el Tue Jun 14 15:31:10 2005 +0000 @@ -12600,7 +12600,7 @@ 'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face) (defface vhdl-font-lock-prompt-face - '((((min-colors 88) (class color) (background light)) + '((((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,7 +12643,7 @@ (defface vhdl-font-lock-reserved-words-face '((((class color) (background light)) (:foreground "Orange" :bold t)) - (((min-colors 88) (class color) (background dark)) + (((min-colors 88) (class color) (background dark)) (:foreground "Yellow1" :bold t)) (((class color) (background dark)) (:foreground "Yellow" :bold t)) (t ())) @@ -14924,7 +14924,7 @@ "Place the entity/component under the cursor as component." (interactive) (if (not (vhdl-speedbar-check-unit 'entity)) - (error "ERROR: No entity/component under cursor.") + (error "ERROR: No entity/component under cursor") (vhdl-speedbar-port-copy) (if (fboundp 'speedbar-select-attached-frame) (speedbar-select-attached-frame)