Mercurial > emacs
changeset 65735:9bfed8eb991b
(vhdl-font-lock-prompt-face)
(vhdl-font-lock-attribute-face, vhdl-font-lock-enumvalue-face)
(vhdl-font-lock-function-face, vhdl-font-lock-directive-face)
(vhdl-font-lock-reserved-words-face)
(vhdl-font-lock-translate-off-face, syntax-alist): Remove group
`font-lock-highlighting-faces'.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Thu, 29 Sep 2005 22:58:48 +0000 |
parents | 77732e123c4e |
children | d87f6cfbe849 |
files | lisp/progmodes/vhdl-mode.el |
diffstat | 1 files changed, 8 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/vhdl-mode.el Thu Sep 29 22:57:28 2005 +0000 +++ b/lisp/progmodes/vhdl-mode.el Thu Sep 29 22:58:48 2005 +0000 @@ -12832,40 +12832,35 @@ (((class color) (background dark)) (:foreground "Pink" :bold t)) (t (:inverse-video t))) "Font lock mode face used to highlight prompts." - :group 'vhdl-highlight-faces - :group 'font-lock-highlighting-faces) + :group 'vhdl-highlight-faces) (defface vhdl-font-lock-attribute-face '((((class color) (background light)) (:foreground "Orchid")) (((class color) (background dark)) (:foreground "LightSteelBlue")) (t (:italic t :bold t))) "Font lock mode face used to highlight standardized attributes." - :group 'vhdl-highlight-faces - :group 'font-lock-highlighting-faces) + :group 'vhdl-highlight-faces) (defface vhdl-font-lock-enumvalue-face '((((class color) (background light)) (:foreground "SaddleBrown")) (((class color) (background dark)) (:foreground "BurlyWood")) (t (:italic t :bold t))) "Font lock mode face used to highlight standardized enumeration values." - :group 'vhdl-highlight-faces - :group 'font-lock-highlighting-faces) + :group 'vhdl-highlight-faces) (defface vhdl-font-lock-function-face '((((class color) (background light)) (:foreground "Cyan4")) (((class color) (background dark)) (:foreground "Orchid1")) (t (:italic t :bold t))) "Font lock mode face used to highlight standardized functions and packages." - :group 'vhdl-highlight-faces - :group 'font-lock-highlighting-faces) + :group 'vhdl-highlight-faces) (defface vhdl-font-lock-directive-face '((((class color) (background light)) (:foreground "CadetBlue")) (((class color) (background dark)) (:foreground "Aquamarine")) (t (:italic t :bold t))) "Font lock mode face used to highlight directives." - :group 'vhdl-highlight-faces - :group 'font-lock-highlighting-faces) + :group 'vhdl-highlight-faces) (defface vhdl-font-lock-reserved-words-face '((((class color) (background light)) (:foreground "Orange" :bold t)) @@ -12874,16 +12869,14 @@ (((class color) (background dark)) (:foreground "Yellow" :bold t)) (t ())) "Font lock mode face used to highlight additional reserved words." - :group 'vhdl-highlight-faces - :group 'font-lock-highlighting-faces) + :group 'vhdl-highlight-faces) (defface vhdl-font-lock-translate-off-face '((((class color) (background light)) (:background "LightGray")) (((class color) (background dark)) (:background "DimGray")) (t ())) "Font lock mode face used to background highlight translate-off regions." - :group 'vhdl-highlight-faces - :group 'font-lock-highlighting-faces) + :group 'vhdl-highlight-faces) ;; font lock mode faces used to highlight words with special syntax. (let ((syntax-alist vhdl-special-syntax-alist)) @@ -12897,8 +12890,7 @@ (t ())) ,(concat "Font lock mode face used to highlight " (nth 0 (car syntax-alist)) ".") - :group 'vhdl-highlight-faces - :group 'font-lock-highlighting-faces)) + :group 'vhdl-highlight-faces)) (setq syntax-alist (cdr syntax-alist)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;