1379 |
(defcustom vhdl-highlight-keywords t |
(defcustom vhdl-highlight-keywords t |
1380 |
"*Non-nil means highlight VHDL keywords and other standardized words. |
"*Non-nil means highlight VHDL keywords and other standardized words. |
1381 |
The following faces are used: |
The following faces are used: |
1382 |
`font-lock-keyword-face' : keywords |
`font-lock-keyword-face' : keywords |
1383 |
`font-lock-type-face' : standardized types |
`font-lock-type' : standardized types |
1384 |
`vhdl-font-lock-attribute-face': standardized attributes |
`vhdl-attribute' : standardized attributes |
1385 |
`vhdl-font-lock-enumvalue-face': standardized enumeration values |
`vhdl-enumvalue' : standardized enumeration values |
1386 |
`vhdl-font-lock-function-face' : standardized function and package names |
`vhdl-function' : standardized function and package names |
1387 |
|
|
1388 |
NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
1389 |
entry \"Fontify Buffer\")." |
entry \"Fontify Buffer\")." |
1398 |
`font-lock-function-name-face' : names in declarations of units, |
`font-lock-function-name-face' : names in declarations of units, |
1399 |
subprograms, components, as well as labels of VHDL constructs |
subprograms, components, as well as labels of VHDL constructs |
1400 |
`font-lock-type-face' : names in type/nature declarations |
`font-lock-type-face' : names in type/nature declarations |
1401 |
`vhdl-font-lock-attribute-face': names in attribute declarations |
`vhdl-attribute' : names in attribute declarations |
1402 |
`font-lock-variable-name-face' : names in declarations of signals, |
`font-lock-variable-name-face' : names in declarations of signals, |
1403 |
variables, constants, subprogram parameters, generics, and ports |
variables, constants, subprogram parameters, generics, and ports |
1404 |
|
|
1426 |
"*Non-nil means highlight forbidden words. |
"*Non-nil means highlight forbidden words. |
1427 |
The reserved words specified in option `vhdl-forbidden-words' or having the |
The reserved words specified in option `vhdl-forbidden-words' or having the |
1428 |
syntax specified in option `vhdl-forbidden-syntax' are highlighted in a |
syntax specified in option `vhdl-forbidden-syntax' are highlighted in a |
1429 |
warning color (face `vhdl-font-lock-reserved-words-face') to indicate not to |
warning color (face `vhdl-reserved-word') to indicate not to |
1430 |
use them. |
use them. |
1431 |
|
|
1432 |
NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
1440 |
(defcustom vhdl-highlight-verilog-keywords nil |
(defcustom vhdl-highlight-verilog-keywords nil |
1441 |
"*Non-nil means highlight Verilog keywords as reserved words. |
"*Non-nil means highlight Verilog keywords as reserved words. |
1442 |
Verilog keywords are highlighted in a warning color (face |
Verilog keywords are highlighted in a warning color (face |
1443 |
`vhdl-font-lock-reserved-words-face') to indicate not to use them. |
`vhdl-reserved-word') to indicate not to use them. |
1444 |
|
|
1445 |
NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
1446 |
entry \"Fontify Buffer\")." |
entry \"Fontify Buffer\")." |
1454 |
"*Non-nil means background-highlight code excluded from translation. |
"*Non-nil means background-highlight code excluded from translation. |
1455 |
That is, all code between \"-- pragma translate_off\" and |
That is, all code between \"-- pragma translate_off\" and |
1456 |
\"-- pragma translate_on\" is highlighted using a different background color |
\"-- pragma translate_on\" is highlighted using a different background color |
1457 |
\(face `vhdl-font-lock-translate-off-face'). |
\(face `vhdl-translate-off'). |
1458 |
Note: this might slow down on-the-fly fontification (and thus editing). |
Note: this might slow down on-the-fly fontification (and thus editing). |
1459 |
|
|
1460 |
NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
NOTE: Activate the new setting in a VHDL buffer by re-fontifying it (menu |
1501 |
\"Signal_s\", \"Variable_v\", \"Constant_c\") by distinguishing them using |
\"Signal_s\", \"Variable_v\", \"Constant_c\") by distinguishing them using |
1502 |
common substrings or name suffices. |
common substrings or name suffices. |
1503 |
For each entry, a new face is generated with the specified colors and name |
For each entry, a new face is generated with the specified colors and name |
1504 |
\"vhdl-font-lock-\" + name + \"-face\". |
\"vhdl-\" + name. |
1505 |
|
|
1506 |
NOTE: Activate a changed regexp in a VHDL buffer by re-fontifying it (menu |
NOTE: Activate a changed regexp in a VHDL buffer by re-fontifying it (menu |
1507 |
entry \"Fontify Buffer\"). All other changes require restarting Emacs." |
entry \"Fontify Buffer\"). All other changes require restarting Emacs." |
12484 |
(list |
(list |
12485 |
(concat |
(concat |
12486 |
"^\\s-*attribute\\s-+\\(\\w+\\)") |
"^\\s-*attribute\\s-+\\(\\w+\\)") |
12487 |
1 'vhdl-font-lock-attribute-face) |
1 'vhdl-attribute) |
12488 |
|
|
12489 |
;; highlight type/nature name in (sub)type/(sub)nature declarations |
;; highlight type/nature name in (sub)type/(sub)nature declarations |
12490 |
(list |
(list |
12542 |
|
|
12543 |
(defconst vhdl-font-lock-keywords-5 |
(defconst vhdl-font-lock-keywords-5 |
12544 |
;; background highlight translate-off regions |
;; background highlight translate-off regions |
12545 |
'((vhdl-match-translate-off (0 vhdl-font-lock-translate-off-face append))) |
'((vhdl-match-translate-off (0 vhdl-translate-off-face append))) |
12546 |
"For consideration as a value of `vhdl-font-lock-keywords'. |
"For consideration as a value of `vhdl-font-lock-keywords'. |
12547 |
This does background highlighting of translate-off regions.") |
This does background highlighting of translate-off regions.") |
12548 |
|
|
12549 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
12550 |
;; Font and color definitions |
;; Font and color definitions |
12551 |
|
|
12552 |
(defvar vhdl-font-lock-prompt-face 'vhdl-font-lock-prompt-face |
(defvar vhdl-prompt-face 'vhdl-prompt |
12553 |
"Face name to use for prompts.") |
"Face name to use for prompts.") |
12554 |
|
|
12555 |
(defvar vhdl-font-lock-attribute-face 'vhdl-font-lock-attribute-face |
(defvar vhdl-attribute-face 'vhdl-attribute |
12556 |
"Face name to use for standardized attributes.") |
"Face name to use for standardized attributes.") |
12557 |
|
|
12558 |
(defvar vhdl-font-lock-enumvalue-face 'vhdl-font-lock-enumvalue-face |
(defvar vhdl-enumvalue-face 'vhdl-enumvalue |
12559 |
"Face name to use for standardized enumeration values.") |
"Face name to use for standardized enumeration values.") |
12560 |
|
|
12561 |
(defvar vhdl-font-lock-function-face 'vhdl-font-lock-function-face |
(defvar vhdl-function-face 'vhdl-function |
12562 |
"Face name to use for standardized functions and packages.") |
"Face name to use for standardized functions and packages.") |
12563 |
|
|
12564 |
(defvar vhdl-font-lock-directive-face 'vhdl-font-lock-directive-face |
(defvar vhdl-directive-face 'vhdl-directive |
12565 |
"Face name to use for directives.") |
"Face name to use for directives.") |
12566 |
|
|
12567 |
(defvar vhdl-font-lock-reserved-words-face 'vhdl-font-lock-reserved-words-face |
(defvar vhdl-reserved-words-face 'vhdl-reserved-words |
12568 |
"Face name to use for additional reserved words.") |
"Face name to use for additional reserved words.") |
12569 |
|
|
12570 |
(defvar vhdl-font-lock-translate-off-face 'vhdl-font-lock-translate-off-face |
(defvar vhdl-translate-off-face 'vhdl-translate-off |
12571 |
"Face name to use for translate-off regions.") |
"Face name to use for translate-off regions.") |
12572 |
|
|
12573 |
;; face names to use for words with special syntax. |
;; face names to use for words with special syntax. |
12574 |
(let ((syntax-alist vhdl-special-syntax-alist) |
(let ((syntax-alist vhdl-special-syntax-alist) |
12575 |
name) |
name) |
12576 |
(while syntax-alist |
(while syntax-alist |
12577 |
(setq name (vhdl-function-name |
(setq name (vhdl-function-name "vhdl" (nth 0 (car syntax-alist)))) |
|
"vhdl-font-lock" (nth 0 (car syntax-alist)) "face")) |
|
12578 |
(eval `(defvar ,name ',name |
(eval `(defvar ,name ',name |
12579 |
,(concat "Face name to use for " |
,(concat "Face name to use for " |
12580 |
(nth 0 (car syntax-alist)) "."))) |
(nth 0 (car syntax-alist)) "."))) |
12598 |
(custom-add-to-group |
(custom-add-to-group |
12599 |
'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face) |
'vhdl-highlight-faces 'font-lock-variable-name-face 'custom-face) |
12600 |
|
|
12601 |
(defface vhdl-font-lock-prompt-face |
(defface vhdl-prompt |
12602 |
'((((min-colors 88) (class color) (background light)) |
'((((min-colors 88) (class color) (background light)) |
12603 |
(:foreground "Red1" :bold t)) |
(:foreground "Red1" :bold t)) |
12604 |
(((class color) (background light)) (:foreground "Red" :bold t)) |
(((class color) (background light)) (:foreground "Red" :bold t)) |
12607 |
"Font lock mode face used to highlight prompts." |
"Font lock mode face used to highlight prompts." |
12608 |
:group 'vhdl-highlight-faces |
:group 'vhdl-highlight-faces |
12609 |
:group 'font-lock-highlighting-faces) |
:group 'font-lock-highlighting-faces) |
12610 |
|
;; backward-compatibility alias |
12611 |
|
(put 'vhdl-font-lock-prompt-face 'face-alias 'vhdl-prompt) |
12612 |
|
|
12613 |
(defface vhdl-font-lock-attribute-face |
(defface vhdl-attribute |
12614 |
'((((class color) (background light)) (:foreground "Orchid")) |
'((((class color) (background light)) (:foreground "Orchid")) |
12615 |
(((class color) (background dark)) (:foreground "LightSteelBlue")) |
(((class color) (background dark)) (:foreground "LightSteelBlue")) |
12616 |
(t (:italic t :bold t))) |
(t (:italic t :bold t))) |
12617 |
"Font lock mode face used to highlight standardized attributes." |
"Font lock mode face used to highlight standardized attributes." |
12618 |
:group 'vhdl-highlight-faces |
:group 'vhdl-highlight-faces |
12619 |
:group 'font-lock-highlighting-faces) |
:group 'font-lock-highlighting-faces) |
12620 |
|
;; backward-compatibility alias |
12621 |
|
(put 'vhdl-font-lock-attribute-face 'face-alias 'vhdl-attribute) |
12622 |
|
|
12623 |
(defface vhdl-font-lock-enumvalue-face |
(defface vhdl-enumvalue |
12624 |
'((((class color) (background light)) (:foreground "SaddleBrown")) |
'((((class color) (background light)) (:foreground "SaddleBrown")) |
12625 |
(((class color) (background dark)) (:foreground "BurlyWood")) |
(((class color) (background dark)) (:foreground "BurlyWood")) |
12626 |
(t (:italic t :bold t))) |
(t (:italic t :bold t))) |
12627 |
"Font lock mode face used to highlight standardized enumeration values." |
"Font lock mode face used to highlight standardized enumeration values." |
12628 |
:group 'vhdl-highlight-faces |
:group 'vhdl-highlight-faces |
12629 |
:group 'font-lock-highlighting-faces) |
:group 'font-lock-highlighting-faces) |
12630 |
|
;; backward-compatibility alias |
12631 |
|
(put 'vhdl-font-lock-enumvalue-face 'face-alias 'vhdl-enumvalue) |
12632 |
|
|
12633 |
(defface vhdl-font-lock-function-face |
(defface vhdl-function |
12634 |
'((((class color) (background light)) (:foreground "Cyan4")) |
'((((class color) (background light)) (:foreground "Cyan4")) |
12635 |
(((class color) (background dark)) (:foreground "Orchid1")) |
(((class color) (background dark)) (:foreground "Orchid1")) |
12636 |
(t (:italic t :bold t))) |
(t (:italic t :bold t))) |
12637 |
"Font lock mode face used to highlight standardized functions and packages." |
"Font lock mode face used to highlight standardized functions and packages." |
12638 |
:group 'vhdl-highlight-faces |
:group 'vhdl-highlight-faces |
12639 |
:group 'font-lock-highlighting-faces) |
:group 'font-lock-highlighting-faces) |
12640 |
|
;; backward-compatibility alias |
12641 |
|
(put 'vhdl-font-lock-function-face 'face-alias 'vhdl-function) |
12642 |
|
|
12643 |
(defface vhdl-font-lock-directive-face |
(defface vhdl-directive |
12644 |
'((((class color) (background light)) (:foreground "CadetBlue")) |
'((((class color) (background light)) (:foreground "CadetBlue")) |
12645 |
(((class color) (background dark)) (:foreground "Aquamarine")) |
(((class color) (background dark)) (:foreground "Aquamarine")) |
12646 |
(t (:italic t :bold t))) |
(t (:italic t :bold t))) |
12647 |
"Font lock mode face used to highlight directives." |
"Font lock mode face used to highlight directives." |
12648 |
:group 'vhdl-highlight-faces |
:group 'vhdl-highlight-faces |
12649 |
:group 'font-lock-highlighting-faces) |
:group 'font-lock-highlighting-faces) |
12650 |
|
;; backward-compatibility alias |
12651 |
|
(put 'vhdl-font-lock-directive-face 'face-alias 'vhdl-directive) |
12652 |
|
|
12653 |
(defface vhdl-font-lock-reserved-words-face |
(defface vhdl-reserved-word |
12654 |
'((((class color) (background light)) (:foreground "Orange" :bold t)) |
'((((class color) (background light)) (:foreground "Orange" :bold t)) |
12655 |
(((min-colors 88) (class color) (background dark)) |
(((min-colors 88) (class color) (background dark)) |
12656 |
(:foreground "Yellow1" :bold t)) |
(:foreground "Yellow1" :bold t)) |
12659 |
"Font lock mode face used to highlight additional reserved words." |
"Font lock mode face used to highlight additional reserved words." |
12660 |
:group 'vhdl-highlight-faces |
:group 'vhdl-highlight-faces |
12661 |
:group 'font-lock-highlighting-faces) |
:group 'font-lock-highlighting-faces) |
12662 |
|
;; backward-compatibility alias |
12663 |
|
(put 'vhdl-font-lock-reserved-words-face 'face-alias 'vhdl-reserved-word) |
12664 |
|
|
12665 |
(defface vhdl-font-lock-translate-off-face |
(defface vhdl-translate-off |
12666 |
'((((class color) (background light)) (:background "LightGray")) |
'((((class color) (background light)) (:background "LightGray")) |
12667 |
(((class color) (background dark)) (:background "DimGray")) |
(((class color) (background dark)) (:background "DimGray")) |
12668 |
(t ())) |
(t ())) |
12669 |
"Font lock mode face used to background highlight translate-off regions." |
"Font lock mode face used to background highlight translate-off regions." |
12670 |
:group 'vhdl-highlight-faces |
:group 'vhdl-highlight-faces |
12671 |
:group 'font-lock-highlighting-faces) |
:group 'font-lock-highlighting-faces) |
12672 |
|
;; backward-compatibility alias |
12673 |
|
(put 'vhdl-font-lock-translate-off-face 'face-alias 'vhdl-translate-off) |
12674 |
|
|
12675 |
;; font lock mode faces used to highlight words with special syntax. |
;; font lock mode faces used to highlight words with special syntax. |
12676 |
(let ((syntax-alist vhdl-special-syntax-alist)) |
(let ((syntax-alist vhdl-special-syntax-alist)) |
12677 |
(while syntax-alist |
(while syntax-alist |
12678 |
(eval `(defface ,(vhdl-function-name |
(eval `(defface ,(vhdl-function-name "vhdl" (caar syntax-alist)) |
|
"vhdl-font-lock" (caar syntax-alist) "face") |
|
12679 |
'((((class color) (background light)) |
'((((class color) (background light)) |
12680 |
(:foreground ,(nth 2 (car syntax-alist)))) |
(:foreground ,(nth 2 (car syntax-alist)))) |
12681 |
(((class color) (background dark)) |
(((class color) (background dark)) |
12696 |
(setq vhdl-font-lock-keywords-0 |
(setq vhdl-font-lock-keywords-0 |
12697 |
(list (list (concat "\\(^\\|[ \t(.']\\)\\(<" |
(list (list (concat "\\(^\\|[ \t(.']\\)\\(<" |
12698 |
vhdl-template-prompt-syntax ">\\)") |
vhdl-template-prompt-syntax ">\\)") |
12699 |
2 'vhdl-font-lock-prompt-face t) |
2 'vhdl-prompt t) |
12700 |
(list (concat "--\\s-*" |
(list (concat "--\\s-*" |
12701 |
vhdl-directive-keywords-regexp "\\s-+\\(.*\\)$") |
vhdl-directive-keywords-regexp "\\s-+\\(.*\\)$") |
12702 |
2 'vhdl-font-lock-directive-face t))) |
2 'vhdl-directive t))) |
12703 |
;; highlight keywords and standardized types, attributes, enumeration |
;; highlight keywords and standardized types, attributes, enumeration |
12704 |
;; values, and subprograms |
;; values, and subprograms |
12705 |
(setq vhdl-font-lock-keywords-1 |
(setq vhdl-font-lock-keywords-1 |
12706 |
(list |
(list |
12707 |
(list (concat "'" vhdl-attributes-regexp) |
(list (concat "'" vhdl-attributes-regexp) 1 'vhdl-attribute) |
|
1 'vhdl-font-lock-attribute-face) |
|
12708 |
(list vhdl-types-regexp 1 'font-lock-type-face) |
(list vhdl-types-regexp 1 'font-lock-type-face) |
12709 |
(list vhdl-functions-regexp 1 'vhdl-font-lock-function-face) |
(list vhdl-functions-regexp 1 'vhdl-function) |
12710 |
(list vhdl-packages-regexp 1 'vhdl-font-lock-function-face) |
(list vhdl-packages-regexp 1 'vhdl-function) |
12711 |
(list vhdl-enum-values-regexp 1 'vhdl-font-lock-enumvalue-face) |
(list vhdl-enum-values-regexp 1 'vhdl-enumvalue) |
12712 |
(list vhdl-keywords-regexp 1 'font-lock-keyword-face))) |
(list vhdl-keywords-regexp 1 'font-lock-keyword-face))) |
12713 |
;; highlight words with special syntax. |
;; highlight words with special syntax. |
12714 |
(setq vhdl-font-lock-keywords-3 |
(setq vhdl-font-lock-keywords-3 |
12719 |
(cons |
(cons |
12720 |
(cons (concat "\\<\\(" (nth 1 (car syntax-alist)) "\\)\\>") |
(cons (concat "\\<\\(" (nth 1 (car syntax-alist)) "\\)\\>") |
12721 |
(vhdl-function-name |
(vhdl-function-name |
12722 |
"vhdl-font-lock" (nth 0 (car syntax-alist)) "face")) |
"vhdl" (nth 0 (car syntax-alist)))) |
12723 |
keywords)) |
keywords)) |
12724 |
(setq syntax-alist (cdr syntax-alist))) |
(setq syntax-alist (cdr syntax-alist))) |
12725 |
keywords)) |
keywords)) |
12726 |
;; highlight additional reserved words |
;; highlight additional reserved words |
12727 |
(setq vhdl-font-lock-keywords-4 |
(setq vhdl-font-lock-keywords-4 |
12728 |
(list (list vhdl-reserved-words-regexp 1 |
(list (list vhdl-reserved-words-regexp 1 'vhdl-reserved-word))) |
|
'vhdl-font-lock-reserved-words-face))) |
|
12729 |
;; highlight everything together |
;; highlight everything together |
12730 |
(setq vhdl-font-lock-keywords |
(setq vhdl-font-lock-keywords |
12731 |
(append |
(append |
12763 |
(unless (or (not vhdl-print-customize-faces) |
(unless (or (not vhdl-print-customize-faces) |
12764 |
ps-print-color-p) |
ps-print-color-p) |
12765 |
(set (make-local-variable 'ps-bold-faces) |
(set (make-local-variable 'ps-bold-faces) |
12766 |
'(font-lock-keyword-face |
'(font-lock-keyword-face font-lock-type-face |
12767 |
font-lock-type-face |
vhdl-attribute vhdl-enumvalue vhdl-directive)) |
|
vhdl-font-lock-attribute-face |
|
|
vhdl-font-lock-enumvalue-face |
|
|
vhdl-font-lock-directive-face)) |
|
12768 |
(set (make-local-variable 'ps-italic-faces) |
(set (make-local-variable 'ps-italic-faces) |
12769 |
'(font-lock-comment-face |
'(font-lock-comment-face |
12770 |
font-lock-function-name-face |
font-lock-function-name-face font-lock-type-face |
12771 |
font-lock-type-face |
vhdl-attribute vhdl-enumvalue vhdl-directive)) |
|
vhdl-font-lock-attribute-face |
|
|
vhdl-font-lock-enumvalue-face |
|
|
vhdl-font-lock-directive-face)) |
|
12772 |
(set (make-local-variable 'ps-underlined-faces) |
(set (make-local-variable 'ps-underlined-faces) |
12773 |
'(font-lock-string-face)) |
'(font-lock-string-face)) |
12774 |
(setq ps-always-build-face-reference t)) |
(setq ps-always-build-face-reference t)) |
13977 |
'bracket ?+ 'vhdl-speedbar-expand-entity (nth 0 ent-entry) |
'bracket ?+ 'vhdl-speedbar-expand-entity (nth 0 ent-entry) |
13978 |
(nth 1 ent-entry) 'vhdl-speedbar-find-file |
(nth 1 ent-entry) 'vhdl-speedbar-find-file |
13979 |
(cons (nth 2 ent-entry) (nth 3 ent-entry)) |
(cons (nth 2 ent-entry) (nth 3 ent-entry)) |
13980 |
'vhdl-speedbar-entity-face depth) |
'vhdl-speedbar-entity depth) |
13981 |
(unless (nth 2 ent-entry) |
(unless (nth 2 ent-entry) |
13982 |
(end-of-line 0) (insert "!") (forward-char 1)) |
(end-of-line 0) (insert "!") (forward-char 1)) |
13983 |
(unless (member (nth 0 ent-entry) ent-inst-list) |
(unless (member (nth 0 ent-entry) ent-inst-list) |
13991 |
'bracket ?+ 'vhdl-speedbar-expand-config (nth 0 conf-entry) |
'bracket ?+ 'vhdl-speedbar-expand-config (nth 0 conf-entry) |
13992 |
(nth 1 conf-entry) 'vhdl-speedbar-find-file |
(nth 1 conf-entry) 'vhdl-speedbar-find-file |
13993 |
(cons (nth 2 conf-entry) (nth 3 conf-entry)) |
(cons (nth 2 conf-entry) (nth 3 conf-entry)) |
13994 |
'vhdl-speedbar-configuration-face depth) |
'vhdl-speedbar-configuration depth) |
13995 |
(setq conf-alist (cdr conf-alist))) |
(setq conf-alist (cdr conf-alist))) |
13996 |
;; insert packages |
;; insert packages |
13997 |
(when pack-alist (vhdl-speedbar-make-title-line "Packages:" depth)) |
(when pack-alist (vhdl-speedbar-make-title-line "Packages:" depth)) |
14182 |
(cons token (nth 0 arch-entry)) |
(cons token (nth 0 arch-entry)) |
14183 |
(nth 1 arch-entry) 'vhdl-speedbar-find-file |
(nth 1 arch-entry) 'vhdl-speedbar-find-file |
14184 |
(cons (nth 2 arch-entry) (nth 3 arch-entry)) |
(cons (nth 2 arch-entry) (nth 3 arch-entry)) |
14185 |
'vhdl-speedbar-architecture-face (1+ indent)) |
'vhdl-speedbar-architecture (1+ indent)) |
14186 |
(setq arch-alist (cdr arch-alist))) |
(setq arch-alist (cdr arch-alist))) |
14187 |
;; insert instantiations |
;; insert instantiations |
14188 |
(when inst-alist |
(when inst-alist |
14365 |
(cons token (nth 0 comp-entry)) |
(cons token (nth 0 comp-entry)) |
14366 |
(nth 1 comp-entry) 'vhdl-speedbar-find-file |
(nth 1 comp-entry) 'vhdl-speedbar-find-file |
14367 |
(cons (nth 2 comp-entry) (nth 3 comp-entry)) |
(cons (nth 2 comp-entry) (nth 3 comp-entry)) |
14368 |
'vhdl-speedbar-entity-face (1+ indent)) |
'vhdl-speedbar-entity (1+ indent)) |
14369 |
(setq comp-alist (cdr comp-alist))) |
(setq comp-alist (cdr comp-alist))) |
14370 |
;; insert subprograms |
;; insert subprograms |
14371 |
(when func-alist |
(when func-alist |
14481 |
(let* ((file-entry (aget file-alist speedbar-last-selected-file t))) |
(let* ((file-entry (aget file-alist speedbar-last-selected-file t))) |
14482 |
(vhdl-speedbar-update-units |
(vhdl-speedbar-update-units |
14483 |
"\\[.\\] " (nth 0 file-entry) |
"\\[.\\] " (nth 0 file-entry) |
14484 |
speedbar-last-selected-file 'vhdl-speedbar-entity-face) |
speedbar-last-selected-file 'vhdl-speedbar-entity) |
14485 |
(vhdl-speedbar-update-units |
(vhdl-speedbar-update-units |
14486 |
"{.} " (nth 1 file-entry) |
"{.} " (nth 1 file-entry) |
14487 |
speedbar-last-selected-file 'vhdl-speedbar-architecture-face) |
speedbar-last-selected-file 'vhdl-speedbar-architecture) |
14488 |
(vhdl-speedbar-update-units |
(vhdl-speedbar-update-units |
14489 |
"\\[.\\] " (nth 3 file-entry) |
"\\[.\\] " (nth 3 file-entry) |
14490 |
speedbar-last-selected-file 'vhdl-speedbar-configuration-face) |
speedbar-last-selected-file 'vhdl-speedbar-configuration) |
14491 |
(vhdl-speedbar-update-units |
(vhdl-speedbar-update-units |
14492 |
"[]>] " (nth 4 file-entry) |
"[]>] " (nth 4 file-entry) |
14493 |
speedbar-last-selected-file 'vhdl-speedbar-package-face) |
speedbar-last-selected-file 'vhdl-speedbar-package) |
14494 |
(vhdl-speedbar-update-units |
(vhdl-speedbar-update-units |
14495 |
"\\[.\\].+(" '("body") |
"\\[.\\].+(" '("body") |
14496 |
speedbar-last-selected-file 'vhdl-speedbar-package-face) |
speedbar-last-selected-file 'vhdl-speedbar-package) |
14497 |
(vhdl-speedbar-update-units |
(vhdl-speedbar-update-units |
14498 |
"> " (nth 6 file-entry) |
"> " (nth 6 file-entry) |
14499 |
speedbar-last-selected-file 'vhdl-speedbar-instantiation-face)) |
speedbar-last-selected-file 'vhdl-speedbar-instantiation)) |
14500 |
;; highlight current units |
;; highlight current units |
14501 |
(let* ((file-entry (aget file-alist file-name t))) |
(let* ((file-entry (aget file-alist file-name t))) |
14502 |
(setq |
(setq |
14503 |
pos (vhdl-speedbar-update-units |
pos (vhdl-speedbar-update-units |
14504 |
"\\[.\\] " (nth 0 file-entry) |
"\\[.\\] " (nth 0 file-entry) |
14505 |
file-name 'vhdl-speedbar-entity-selected-face pos) |
file-name 'vhdl-speedbar-entity-selected pos) |
14506 |
pos (vhdl-speedbar-update-units |
pos (vhdl-speedbar-update-units |
14507 |
"{.} " (nth 1 file-entry) |
"{.} " (nth 1 file-entry) |
14508 |
file-name 'vhdl-speedbar-architecture-selected-face pos) |
file-name 'vhdl-speedbar-architecture-selected pos) |
14509 |
pos (vhdl-speedbar-update-units |
pos (vhdl-speedbar-update-units |
14510 |
"\\[.\\] " (nth 3 file-entry) |
"\\[.\\] " (nth 3 file-entry) |
14511 |
file-name 'vhdl-speedbar-configuration-selected-face pos) |
file-name 'vhdl-speedbar-configuration-selected pos) |
14512 |
pos (vhdl-speedbar-update-units |
pos (vhdl-speedbar-update-units |
14513 |
"[]>] " (nth 4 file-entry) |
"[]>] " (nth 4 file-entry) |
14514 |
file-name 'vhdl-speedbar-package-selected-face pos) |
file-name 'vhdl-speedbar-package-selected pos) |
14515 |
pos (vhdl-speedbar-update-units |
pos (vhdl-speedbar-update-units |
14516 |
"\\[.\\].+(" '("body") |
"\\[.\\].+(" '("body") |
14517 |
file-name 'vhdl-speedbar-package-selected-face pos) |
file-name 'vhdl-speedbar-package-selected pos) |
14518 |
pos (vhdl-speedbar-update-units |
pos (vhdl-speedbar-update-units |
14519 |
"> " (nth 6 file-entry) |
"> " (nth 6 file-entry) |
14520 |
file-name 'vhdl-speedbar-instantiation-selected-face pos)))))) |
file-name 'vhdl-speedbar-instantiation-selected pos)))))) |
14521 |
;; move speedbar so the first highlighted unit is visible |
;; move speedbar so the first highlighted unit is visible |
14522 |
(when (and pos (not no-position)) |
(when (and pos (not no-position)) |
14523 |
(goto-char pos) |
(goto-char pos) |
14568 |
(insert "(top)") |
(insert "(top)") |
14569 |
(insert inst-name) |
(insert inst-name) |
14570 |
(speedbar-make-button |
(speedbar-make-button |
14571 |
start (point) 'vhdl-speedbar-instantiation-face 'speedbar-highlight-face |
start (point) 'vhdl-speedbar-instantiation 'speedbar-highlight-face |
14572 |
'vhdl-speedbar-find-file inst-file-marker)) |
'vhdl-speedbar-find-file inst-file-marker)) |
14573 |
(insert delimiter) |
(insert delimiter) |
14574 |
(when ent-name |
(when ent-name |
14575 |
(setq start (point)) |
(setq start (point)) |
14576 |
(insert ent-name) |
(insert ent-name) |
14577 |
(speedbar-make-button |
(speedbar-make-button |
14578 |
start (point) 'vhdl-speedbar-entity-face 'speedbar-highlight-face |
start (point) 'vhdl-speedbar-entity 'speedbar-highlight-face |
14579 |
'vhdl-speedbar-find-file ent-file-marker) |
'vhdl-speedbar-find-file ent-file-marker) |
14580 |
(when arch-name |
(when arch-name |
14581 |
(insert " (") |
(insert " (") |
14582 |
(setq start (point)) |
(setq start (point)) |
14583 |
(insert arch-name) |
(insert arch-name) |
14584 |
(speedbar-make-button |
(speedbar-make-button |
14585 |
start (point) 'vhdl-speedbar-architecture-face 'speedbar-highlight-face |
start (point) 'vhdl-speedbar-architecture 'speedbar-highlight-face |
14586 |
'vhdl-speedbar-find-file arch-file-marker) |
'vhdl-speedbar-find-file arch-file-marker) |
14587 |
(insert ")")) |
(insert ")")) |
14588 |
(when conf-name |
(when conf-name |
14590 |
(setq start (point)) |
(setq start (point)) |
14591 |
(insert conf-name) |
(insert conf-name) |
14592 |
(speedbar-make-button |
(speedbar-make-button |
14593 |
start (point) 'vhdl-speedbar-configuration-face 'speedbar-highlight-face |
start (point) 'vhdl-speedbar-configuration 'speedbar-highlight-face |
14594 |
'vhdl-speedbar-find-file conf-file-marker) |
'vhdl-speedbar-find-file conf-file-marker) |
14595 |
(insert ")"))) |
(insert ")"))) |
14596 |
(when (and lib-name (not (equal lib-name (downcase (vhdl-work-library))))) |
(when (and lib-name (not (equal lib-name (downcase (vhdl-work-library))))) |
14597 |
(setq start (point)) |
(setq start (point)) |
14598 |
(insert " (" lib-name ")") |
(insert " (" lib-name ")") |
14599 |
(put-text-property (+ 2 start) (1- (point)) 'face |
(put-text-property (+ 2 start) (1- (point)) 'face |
14600 |
'vhdl-speedbar-library-face)) |
'vhdl-speedbar-library)) |
14601 |
(insert-char ?\n 1) |
(insert-char ?\n 1) |
14602 |
(put-text-property visible-start (point) 'invisible nil))) |
(put-text-property visible-start (point) 'invisible nil))) |
14603 |
|
|
14621 |
(setq start (point)) |
(setq start (point)) |
14622 |
(insert pack-name) |
(insert pack-name) |
14623 |
(speedbar-make-button |
(speedbar-make-button |
14624 |
start (point) 'vhdl-speedbar-package-face 'speedbar-highlight-face |
start (point) 'vhdl-speedbar-package 'speedbar-highlight-face |
14625 |
'vhdl-speedbar-find-file pack-file-marker) |
'vhdl-speedbar-find-file pack-file-marker) |
14626 |
(unless (car pack-file-marker) |
(unless (car pack-file-marker) |
14627 |
(insert "!")) |
(insert "!")) |
14630 |
(setq start (point)) |
(setq start (point)) |
14631 |
(insert "body") |
(insert "body") |
14632 |
(speedbar-make-button |
(speedbar-make-button |
14633 |
start (point) 'vhdl-speedbar-package-face 'speedbar-highlight-face |
start (point) 'vhdl-speedbar-package 'speedbar-highlight-face |
14634 |
'vhdl-speedbar-find-file body-file-marker) |
'vhdl-speedbar-find-file body-file-marker) |
14635 |
(insert ")")) |
(insert ")")) |
14636 |
(insert-char ?\n 1) |
(insert-char ?\n 1) |
14654 |
(setq start (point)) |
(setq start (point)) |
14655 |
(insert pack-name) |
(insert pack-name) |
14656 |
(speedbar-make-button |
(speedbar-make-button |
14657 |
start (point) 'vhdl-speedbar-package-face 'speedbar-highlight-face |
start (point) 'vhdl-speedbar-package 'speedbar-highlight-face |
14658 |
'vhdl-speedbar-find-file pack-file-marker) |
'vhdl-speedbar-find-file pack-file-marker) |
14659 |
(setq start (point)) |
(setq start (point)) |
14660 |
(insert " (" lib-name ")") |
(insert " (" lib-name ")") |
14661 |
(put-text-property (+ 2 start) (1- (point)) 'face |
(put-text-property (+ 2 start) (1- (point)) 'face |
14662 |
'vhdl-speedbar-library-face) |
'vhdl-speedbar-library) |
14663 |
(insert-char ?\n 1) |
(insert-char ?\n 1) |
14664 |
(put-text-property visible-start (point) 'invisible nil))) |
(put-text-property visible-start (point) 'invisible nil))) |
14665 |
|
|
14682 |
(setq start (point)) |
(setq start (point)) |
14683 |
(insert func-name) |
(insert func-name) |
14684 |
(speedbar-make-button |
(speedbar-make-button |
14685 |
start (point) 'vhdl-speedbar-subprogram-face 'speedbar-highlight-face |
start (point) 'vhdl-speedbar-subprogram 'speedbar-highlight-face |
14686 |
'vhdl-speedbar-find-file func-file-marker) |
'vhdl-speedbar-find-file func-file-marker) |
14687 |
(when (car func-body-file-marker) |
(when (car func-body-file-marker) |
14688 |
(insert " (") |
(insert " (") |
14689 |
(setq start (point)) |
(setq start (point)) |
14690 |
(insert "body") |
(insert "body") |
14691 |
(speedbar-make-button |
(speedbar-make-button |
14692 |
start (point) 'vhdl-speedbar-subprogram-face 'speedbar-highlight-face |
start (point) 'vhdl-speedbar-subprogram 'speedbar-highlight-face |
14693 |
'vhdl-speedbar-find-file func-body-file-marker) |
'vhdl-speedbar-find-file func-body-file-marker) |
14694 |
(insert ")")) |
(insert ")")) |
14695 |
(insert-char ?\n 1) |
(insert-char ?\n 1) |
14777 |
(message |
(message |
14778 |
"%s \"%s\" in \"%s\"" |
"%s \"%s\" in \"%s\"" |
14779 |
;; design unit kind |
;; design unit kind |
14780 |
(cond ((or (eq face 'vhdl-speedbar-entity-face) |
(cond ((or (eq face 'vhdl-speedbar-entity) |
14781 |
(eq face 'vhdl-speedbar-entity-selected-face)) |
(eq face 'vhdl-speedbar-entity-selected)) |
14782 |
(if (equal (match-string 2) ">") "Component" "Entity")) |
(if (equal (match-string 2) ">") "Component" "Entity")) |
14783 |
((or (eq face 'vhdl-speedbar-architecture-face) |
((or (eq face 'vhdl-speedbar-architecture) |
14784 |
(eq face 'vhdl-speedbar-architecture-selected-face)) |
(eq face 'vhdl-speedbar-architecture-selected)) |
14785 |
"Architecture") |
"Architecture") |
14786 |
((or (eq face 'vhdl-speedbar-configuration-face) |
((or (eq face 'vhdl-speedbar-configuration) |
14787 |
(eq face 'vhdl-speedbar-configuration-selected-face)) |
(eq face 'vhdl-speedbar-configuration-selected)) |
14788 |
"Configuration") |
"Configuration") |
14789 |
((or (eq face 'vhdl-speedbar-package-face) |
((or (eq face 'vhdl-speedbar-package) |
14790 |
(eq face 'vhdl-speedbar-package-selected-face)) |
(eq face 'vhdl-speedbar-package-selected)) |
14791 |
"Package") |
"Package") |
14792 |
((or (eq face 'vhdl-speedbar-instantiation-face) |
((or (eq face 'vhdl-speedbar-instantiation) |
14793 |
(eq face 'vhdl-speedbar-instantiation-selected-face)) |
(eq face 'vhdl-speedbar-instantiation-selected)) |
14794 |
"Instantiation") |
"Instantiation") |
14795 |
((eq face 'vhdl-speedbar-subprogram-face) |
((eq face 'vhdl-speedbar-subprogram) |
14796 |
"Subprogram") |
"Subprogram") |
14797 |
(t "")) |
(t "")) |
14798 |
;; design unit name |
;; design unit name |
14968 |
(speedbar-position-cursor-on-line) |
(speedbar-position-cursor-on-line) |
14969 |
(cond ((eq design-unit 'entity) |
(cond ((eq design-unit 'entity) |
14970 |
(memq (get-text-property (match-end 0) 'face) |
(memq (get-text-property (match-end 0) 'face) |
14971 |
'(vhdl-speedbar-entity-face |
'(vhdl-speedbar-entity |
14972 |
vhdl-speedbar-entity-selected-face))) |
vhdl-speedbar-entity-selected))) |
14973 |
((eq design-unit 'subprogram) |
((eq design-unit 'subprogram) |
14974 |
(eq (get-text-property (match-end 0) 'face) |
(eq (get-text-property (match-end 0) 'face) |
14975 |
'vhdl-speedbar-subprogram-face)) |
'vhdl-speedbar-subprogram)) |
14976 |
(t nil)))) |
(t nil)))) |
14977 |
|
|
14978 |
(defun vhdl-speedbar-set-depth (depth) |
(defun vhdl-speedbar-set-depth (depth) |
14983 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
14984 |
;; Fontification |
;; Fontification |
14985 |
|
|
14986 |
(defface vhdl-speedbar-entity-face |
(defface vhdl-speedbar-entity |
14987 |
'((((class color) (background light)) (:foreground "ForestGreen")) |
'((((class color) (background light)) (:foreground "ForestGreen")) |
14988 |
(((class color) (background dark)) (:foreground "PaleGreen"))) |
(((class color) (background dark)) (:foreground "PaleGreen"))) |
14989 |
"Face used for displaying entity names." |
"Face used for displaying entity names." |
14990 |
:group 'speedbar-faces) |
:group 'speedbar-faces) |
14991 |
|
;; backward-compatibility alias |
14992 |
|
(put 'vhdl-speedbar-entity-face 'face-alias 'vhdl-speedbar-entity) |
14993 |
|
|
14994 |
(defface vhdl-speedbar-architecture-face |
(defface vhdl-speedbar-architecture |
14995 |
'((((min-colors 88) (class color) (background light)) (:foreground "Blue1")) |
'((((min-colors 88) (class color) (background light)) (:foreground "Blue1")) |
14996 |
(((class color) (background light)) (:foreground "Blue")) |
(((class color) (background light)) (:foreground "Blue")) |
14997 |
(((class color) (background dark)) (:foreground "LightSkyBlue"))) |
(((class color) (background dark)) (:foreground "LightSkyBlue"))) |
14998 |
"Face used for displaying architecture names." |
"Face used for displaying architecture names." |
14999 |
:group 'speedbar-faces) |
:group 'speedbar-faces) |
15000 |
|
;; backward-compatibility alias |
15001 |
|
(put 'vhdl-speedbar-architecture-face 'face-alias 'vhdl-speedbar-architecture) |
15002 |
|
|
15003 |
(defface vhdl-speedbar-configuration-face |
(defface vhdl-speedbar-configuration |
15004 |
'((((class color) (background light)) (:foreground "DarkGoldenrod")) |
'((((class color) (background light)) (:foreground "DarkGoldenrod")) |
15005 |
(((class color) (background dark)) (:foreground "Salmon"))) |
(((class color) (background dark)) (:foreground "Salmon"))) |
15006 |
"Face used for displaying configuration names." |
"Face used for displaying configuration names." |
15007 |
:group 'speedbar-faces) |
:group 'speedbar-faces) |
15008 |
|
;; backward-compatibility alias |
15009 |
|
(put 'vhdl-speedbar-configuration-face 'face-alias 'vhdl-speedbar-configuration) |
15010 |
|
|
15011 |
(defface vhdl-speedbar-package-face |
(defface vhdl-speedbar-package |
15012 |
'((((class color) (background light)) (:foreground "Grey50")) |
'((((class color) (background light)) (:foreground "Grey50")) |
15013 |
(((class color) (background dark)) (:foreground "Grey80"))) |
(((class color) (background dark)) (:foreground "Grey80"))) |
15014 |
"Face used for displaying package names." |
"Face used for displaying package names." |
15015 |
:group 'speedbar-faces) |
:group 'speedbar-faces) |
15016 |
|
;; backward-compatibility alias |
15017 |
|
(put 'vhdl-speedbar-package-face 'face-alias 'vhdl-speedbar-package) |
15018 |
|
|
15019 |
(defface vhdl-speedbar-library-face |
(defface vhdl-speedbar-library |
15020 |
'((((class color) (background light)) (:foreground "Purple")) |
'((((class color) (background light)) (:foreground "Purple")) |
15021 |
(((class color) (background dark)) (:foreground "Orchid1"))) |
(((class color) (background dark)) (:foreground "Orchid1"))) |
15022 |
"Face used for displaying library names." |
"Face used for displaying library names." |
15023 |
:group 'speedbar-faces) |
:group 'speedbar-faces) |
15024 |
|
;; backward-compatibility alias |
15025 |
|
(put 'vhdl-speedbar-library-face 'face-alias 'vhdl-speedbar-library) |
15026 |
|
|
15027 |
(defface vhdl-speedbar-instantiation-face |
(defface vhdl-speedbar-instantiation |
15028 |
'((((class color) (background light)) (:foreground "Brown")) |
'((((class color) (background light)) (:foreground "Brown")) |
15029 |
(((min-colors 88) (class color) (background dark)) (:foreground "Yellow1")) |
(((min-colors 88) (class color) (background dark)) (:foreground "Yellow1")) |
15030 |
(((class color) (background dark)) (:foreground "Yellow"))) |
(((class color) (background dark)) (:foreground "Yellow"))) |
15031 |
"Face used for displaying instantiation names." |
"Face used for displaying instantiation names." |
15032 |
:group 'speedbar-faces) |
:group 'speedbar-faces) |
15033 |
|
;; backward-compatibility alias |
15034 |
|
(put 'vhdl-speedbar-instantiation-face 'face-alias 'vhdl-speedbar-instantiation) |
15035 |
|
|
15036 |
(defface vhdl-speedbar-subprogram-face |
(defface vhdl-speedbar-subprogram |
15037 |
'((((class color) (background light)) (:foreground "Orchid4")) |
'((((class color) (background light)) (:foreground "Orchid4")) |
15038 |
(((class color) (background dark)) (:foreground "BurlyWood2"))) |
(((class color) (background dark)) (:foreground "BurlyWood2"))) |
15039 |
"Face used for displaying subprogram names." |
"Face used for displaying subprogram names." |
15040 |
:group 'speedbar-faces) |
:group 'speedbar-faces) |
15041 |
|
;; backward-compatibility alias |
15042 |
|
(put 'vhdl-speedbar-subprogram-face 'face-alias 'vhdl-speedbar-subprogram) |
15043 |
|
|
15044 |
(defface vhdl-speedbar-entity-selected-face |
(defface vhdl-speedbar-entity-selected |
15045 |
'((((class color) (background light)) (:foreground "ForestGreen" :underline t)) |
'((((class color) (background light)) (:foreground "ForestGreen" :underline t)) |
15046 |
(((class color) (background dark)) (:foreground "PaleGreen" :underline t))) |
(((class color) (background dark)) (:foreground "PaleGreen" :underline t))) |
15047 |
"Face used for displaying entity names." |
"Face used for displaying entity names." |
15048 |
:group 'speedbar-faces) |
:group 'speedbar-faces) |
15049 |
|
;; backward-compatibility alias |
15050 |
|
(put 'vhdl-speedbar-entity-selected-face 'face-alias 'vhdl-speedbar-entity-selected) |
15051 |
|
|
15052 |
(defface vhdl-speedbar-architecture-selected-face |
(defface vhdl-speedbar-architecture-selected |
15053 |
'((((min-colors 88) (class color) (background light)) (:foreground "Blue1" :underline t)) |
'((((min-colors 88) (class color) (background light)) (:foreground "Blue1" :underline t)) |
15054 |
(((min-colors 88) (class color) (background light)) (:foreground "Blue1" :underline t)) |
(((min-colors 88) (class color) (background light)) (:foreground "Blue1" :underline t)) |
15055 |
(((class color) (background light)) (:foreground "Blue" :underline t)) |
(((class color) (background light)) (:foreground "Blue" :underline t)) |
15056 |
(((class color) (background dark)) (:foreground "LightSkyBlue" :underline t))) |
(((class color) (background dark)) (:foreground "LightSkyBlue" :underline t))) |
15057 |
"Face used for displaying architecture names." |
"Face used for displaying architecture names." |
15058 |
:group 'speedbar-faces) |
:group 'speedbar-faces) |
15059 |
|
;; backward-compatibility alias |
15060 |
|
(put 'vhdl-speedbar-architecture-selected-face 'face-alias 'vhdl-speedbar-architecture-selected) |
15061 |
|
|
15062 |
(defface vhdl-speedbar-configuration-selected-face |
(defface vhdl-speedbar-configuration-selected |
15063 |
'((((class color) (background light)) (:foreground "DarkGoldenrod" :underline t)) |
'((((class color) (background light)) (:foreground "DarkGoldenrod" :underline t)) |
15064 |
(((class color) (background dark)) (:foreground "Salmon" :underline t))) |
(((class color) (background dark)) (:foreground "Salmon" :underline t))) |
15065 |
"Face used for displaying configuration names." |
"Face used for displaying configuration names." |
15066 |
:group 'speedbar-faces) |
:group 'speedbar-faces) |
15067 |
|
;; backward-compatibility alias |
15068 |
|
(put 'vhdl-speedbar-configuration-selected-face 'face-alias 'vhdl-speedbar-configuration-selected) |
15069 |
|
|
15070 |
(defface vhdl-speedbar-package-selected-face |
(defface vhdl-speedbar-package-selected |
15071 |
'((((class color) (background light)) (:foreground "Grey50" :underline t)) |
'((((class color) (background light)) (:foreground "Grey50" :underline t)) |
15072 |
(((class color) (background dark)) (:foreground "Grey80" :underline t))) |
(((class color) (background dark)) (:foreground "Grey80" :underline t))) |
15073 |
"Face used for displaying package names." |
"Face used for displaying package names." |
15074 |
:group 'speedbar-faces) |
:group 'speedbar-faces) |
15075 |
|
;; backward-compatibility alias |
15076 |
|
(put 'vhdl-speedbar-package-selected-face 'face-alias 'vhdl-speedbar-package-selected) |
15077 |
|
|
15078 |
(defface vhdl-speedbar-instantiation-selected-face |
(defface vhdl-speedbar-instantiation-selected |
15079 |
'((((class color) (background light)) (:foreground "Brown" :underline t)) |
'((((class color) (background light)) (:foreground "Brown" :underline t)) |
15080 |
(((min-colors 88) (class color) (background dark)) (:foreground "Yellow1" :underline t)) |
(((min-colors 88) (class color) (background dark)) (:foreground "Yellow1" :underline t)) |
15081 |
(((class color) (background dark)) (:foreground "Yellow" :underline t))) |
(((class color) (background dark)) (:foreground "Yellow" :underline t))) |
15082 |
"Face used for displaying instantiation names." |
"Face used for displaying instantiation names." |
15083 |
:group 'speedbar-faces) |
:group 'speedbar-faces) |
15084 |
|
;; backward-compatibility alias |
15085 |
|
(put 'vhdl-speedbar-instantiation-selected-face 'face-alias 'vhdl-speedbar-instantiation-selected) |
15086 |
|
|
15087 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
15088 |
;; Initialization |
;; Initialization |