aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2005-09-29 22:58:48 +0000
committerJuri Linkov2005-09-29 22:58:48 +0000
commitfa6674e31fb675363d4d7cc63f75f82ee69ad0b6 (patch)
tree78956853e64299d89f3bb6431b967cb60d4a9fbe
parentda7422052c34089aedccd17fc864ebe1cd4c759c (diff)
downloademacs-fa6674e31fb675363d4d7cc63f75f82ee69ad0b6.tar.gz
emacs-fa6674e31fb675363d4d7cc63f75f82ee69ad0b6.zip
(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'.
-rw-r--r--lisp/progmodes/vhdl-mode.el24
1 files changed, 8 insertions, 16 deletions
diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el
index 04ddf7b8fcd..1986148e8d5 100644
--- a/lisp/progmodes/vhdl-mode.el
+++ b/lisp/progmodes/vhdl-mode.el
@@ -12832,40 +12832,35 @@ This does background highlighting of translate-off regions.")
12832 (((class color) (background dark)) (:foreground "Pink" :bold t)) 12832 (((class color) (background dark)) (:foreground "Pink" :bold t))
12833 (t (:inverse-video t))) 12833 (t (:inverse-video t)))
12834 "Font lock mode face used to highlight prompts." 12834 "Font lock mode face used to highlight prompts."
12835 :group 'vhdl-highlight-faces 12835 :group 'vhdl-highlight-faces)
12836 :group 'font-lock-highlighting-faces)
12837 12836
12838(defface vhdl-font-lock-attribute-face 12837(defface vhdl-font-lock-attribute-face
12839 '((((class color) (background light)) (:foreground "Orchid")) 12838 '((((class color) (background light)) (:foreground "Orchid"))
12840 (((class color) (background dark)) (:foreground "LightSteelBlue")) 12839 (((class color) (background dark)) (:foreground "LightSteelBlue"))
12841 (t (:italic t :bold t))) 12840 (t (:italic t :bold t)))
12842 "Font lock mode face used to highlight standardized attributes." 12841 "Font lock mode face used to highlight standardized attributes."
12843 :group 'vhdl-highlight-faces 12842 :group 'vhdl-highlight-faces)
12844 :group 'font-lock-highlighting-faces)
12845 12843
12846(defface vhdl-font-lock-enumvalue-face 12844(defface vhdl-font-lock-enumvalue-face
12847 '((((class color) (background light)) (:foreground "SaddleBrown")) 12845 '((((class color) (background light)) (:foreground "SaddleBrown"))
12848 (((class color) (background dark)) (:foreground "BurlyWood")) 12846 (((class color) (background dark)) (:foreground "BurlyWood"))
12849 (t (:italic t :bold t))) 12847 (t (:italic t :bold t)))
12850 "Font lock mode face used to highlight standardized enumeration values." 12848 "Font lock mode face used to highlight standardized enumeration values."
12851 :group 'vhdl-highlight-faces 12849 :group 'vhdl-highlight-faces)
12852 :group 'font-lock-highlighting-faces)
12853 12850
12854(defface vhdl-font-lock-function-face 12851(defface vhdl-font-lock-function-face
12855 '((((class color) (background light)) (:foreground "Cyan4")) 12852 '((((class color) (background light)) (:foreground "Cyan4"))
12856 (((class color) (background dark)) (:foreground "Orchid1")) 12853 (((class color) (background dark)) (:foreground "Orchid1"))
12857 (t (:italic t :bold t))) 12854 (t (:italic t :bold t)))
12858 "Font lock mode face used to highlight standardized functions and packages." 12855 "Font lock mode face used to highlight standardized functions and packages."
12859 :group 'vhdl-highlight-faces 12856 :group 'vhdl-highlight-faces)
12860 :group 'font-lock-highlighting-faces)
12861 12857
12862(defface vhdl-font-lock-directive-face 12858(defface vhdl-font-lock-directive-face
12863 '((((class color) (background light)) (:foreground "CadetBlue")) 12859 '((((class color) (background light)) (:foreground "CadetBlue"))
12864 (((class color) (background dark)) (:foreground "Aquamarine")) 12860 (((class color) (background dark)) (:foreground "Aquamarine"))
12865 (t (:italic t :bold t))) 12861 (t (:italic t :bold t)))
12866 "Font lock mode face used to highlight directives." 12862 "Font lock mode face used to highlight directives."
12867 :group 'vhdl-highlight-faces 12863 :group 'vhdl-highlight-faces)
12868 :group 'font-lock-highlighting-faces)
12869 12864
12870(defface vhdl-font-lock-reserved-words-face 12865(defface vhdl-font-lock-reserved-words-face
12871 '((((class color) (background light)) (:foreground "Orange" :bold t)) 12866 '((((class color) (background light)) (:foreground "Orange" :bold t))
@@ -12874,16 +12869,14 @@ This does background highlighting of translate-off regions.")
12874 (((class color) (background dark)) (:foreground "Yellow" :bold t)) 12869 (((class color) (background dark)) (:foreground "Yellow" :bold t))
12875 (t ())) 12870 (t ()))
12876 "Font lock mode face used to highlight additional reserved words." 12871 "Font lock mode face used to highlight additional reserved words."
12877 :group 'vhdl-highlight-faces 12872 :group 'vhdl-highlight-faces)
12878 :group 'font-lock-highlighting-faces)
12879 12873
12880(defface vhdl-font-lock-translate-off-face 12874(defface vhdl-font-lock-translate-off-face
12881 '((((class color) (background light)) (:background "LightGray")) 12875 '((((class color) (background light)) (:background "LightGray"))
12882 (((class color) (background dark)) (:background "DimGray")) 12876 (((class color) (background dark)) (:background "DimGray"))
12883 (t ())) 12877 (t ()))
12884 "Font lock mode face used to background highlight translate-off regions." 12878 "Font lock mode face used to background highlight translate-off regions."
12885 :group 'vhdl-highlight-faces 12879 :group 'vhdl-highlight-faces)
12886 :group 'font-lock-highlighting-faces)
12887 12880
12888;; font lock mode faces used to highlight words with special syntax. 12881;; font lock mode faces used to highlight words with special syntax.
12889(let ((syntax-alist vhdl-special-syntax-alist)) 12882(let ((syntax-alist vhdl-special-syntax-alist))
@@ -12897,8 +12890,7 @@ This does background highlighting of translate-off regions.")
12897 (t ())) 12890 (t ()))
12898 ,(concat "Font lock mode face used to highlight " 12891 ,(concat "Font lock mode face used to highlight "
12899 (nth 0 (car syntax-alist)) ".") 12892 (nth 0 (car syntax-alist)) ".")
12900 :group 'vhdl-highlight-faces 12893 :group 'vhdl-highlight-faces))
12901 :group 'font-lock-highlighting-faces))
12902 (setq syntax-alist (cdr syntax-alist)))) 12894 (setq syntax-alist (cdr syntax-alist))))
12903 12895
12904;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 12896;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;