aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2005-06-14 15:31:10 +0000
committerJuanma Barranquero2005-06-14 15:31:10 +0000
commit5bb5087f3cfecc123842ee4f26155c621289e6cd (patch)
tree26c73dda865053fba9bd5131b615f7d0f641c6c9
parentff689efdb451432e0abdc3e46f0a84956b1dd386 (diff)
downloademacs-5bb5087f3cfecc123842ee4f26155c621289e6cd.tar.gz
emacs-5bb5087f3cfecc123842ee4f26155c621289e6cd.zip
(vhdl-speedbar-place-component): Follow error conventions.
-rw-r--r--lisp/progmodes/vhdl-mode.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el
index ebccb1bf5bf..d30b3a565a0 100644
--- a/lisp/progmodes/vhdl-mode.el
+++ b/lisp/progmodes/vhdl-mode.el
@@ -12600,7 +12600,7 @@ This does background highlighting of translate-off regions.")
12600 'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face) 12600 'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face)
12601 12601
12602(defface vhdl-font-lock-prompt-face 12602(defface vhdl-font-lock-prompt-face
12603 '((((min-colors 88) (class color) (background light)) 12603 '((((min-colors 88) (class color) (background light))
12604 (:foreground "Red1" :bold t)) 12604 (:foreground "Red1" :bold t))
12605 (((class color) (background light)) (:foreground "Red" :bold t)) 12605 (((class color) (background light)) (:foreground "Red" :bold t))
12606 (((class color) (background dark)) (:foreground "Pink" :bold t)) 12606 (((class color) (background dark)) (:foreground "Pink" :bold t))
@@ -12643,7 +12643,7 @@ This does background highlighting of translate-off regions.")
12643 12643
12644(defface vhdl-font-lock-reserved-words-face 12644(defface vhdl-font-lock-reserved-words-face
12645 '((((class color) (background light)) (:foreground "Orange" :bold t)) 12645 '((((class color) (background light)) (:foreground "Orange" :bold t))
12646 (((min-colors 88) (class color) (background dark)) 12646 (((min-colors 88) (class color) (background dark))
12647 (:foreground "Yellow1" :bold t)) 12647 (:foreground "Yellow1" :bold t))
12648 (((class color) (background dark)) (:foreground "Yellow" :bold t)) 12648 (((class color) (background dark)) (:foreground "Yellow" :bold t))
12649 (t ())) 12649 (t ()))
@@ -14924,7 +14924,7 @@ is already shown in a buffer."
14924 "Place the entity/component under the cursor as component." 14924 "Place the entity/component under the cursor as component."
14925 (interactive) 14925 (interactive)
14926 (if (not (vhdl-speedbar-check-unit 'entity)) 14926 (if (not (vhdl-speedbar-check-unit 'entity))
14927 (error "ERROR: No entity/component under cursor.") 14927 (error "ERROR: No entity/component under cursor")
14928 (vhdl-speedbar-port-copy) 14928 (vhdl-speedbar-port-copy)
14929 (if (fboundp 'speedbar-select-attached-frame) 14929 (if (fboundp 'speedbar-select-attached-frame)
14930 (speedbar-select-attached-frame) 14930 (speedbar-select-attached-frame)