/[emacs]/emacs/lisp/progmodes/vhdl-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/vhdl-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.46 by deego, Sun Sep 18 12:31:28 2005 UTC revision 1.47 by jurta, Thu Sep 29 22:58:48 2005 UTC
# Line 12832  This does background highlighting of tra Line 12832  This does background highlighting of tra
12832      (((class color) (background dark)) (:foreground "Pink" :bold t))      (((class color) (background dark)) (:foreground "Pink" :bold t))
12833      (t (:inverse-video t)))      (t (:inverse-video t)))
12834    "Font lock mode face used to highlight prompts."    "Font lock mode face used to highlight prompts."
12835    :group 'vhdl-highlight-faces    :group 'vhdl-highlight-faces)
   :group 'font-lock-highlighting-faces)  
12836    
12837  (defface vhdl-font-lock-attribute-face  (defface vhdl-font-lock-attribute-face
12838    '((((class color) (background light)) (:foreground "Orchid"))    '((((class color) (background light)) (:foreground "Orchid"))
12839      (((class color) (background dark)) (:foreground "LightSteelBlue"))      (((class color) (background dark)) (:foreground "LightSteelBlue"))
12840      (t (:italic t :bold t)))      (t (:italic t :bold t)))
12841    "Font lock mode face used to highlight standardized attributes."    "Font lock mode face used to highlight standardized attributes."
12842    :group 'vhdl-highlight-faces    :group 'vhdl-highlight-faces)
   :group 'font-lock-highlighting-faces)  
12843    
12844  (defface vhdl-font-lock-enumvalue-face  (defface vhdl-font-lock-enumvalue-face
12845    '((((class color) (background light)) (:foreground "SaddleBrown"))    '((((class color) (background light)) (:foreground "SaddleBrown"))
12846      (((class color) (background dark)) (:foreground "BurlyWood"))      (((class color) (background dark)) (:foreground "BurlyWood"))
12847      (t (:italic t :bold t)))      (t (:italic t :bold t)))
12848    "Font lock mode face used to highlight standardized enumeration values."    "Font lock mode face used to highlight standardized enumeration values."
12849    :group 'vhdl-highlight-faces    :group 'vhdl-highlight-faces)
   :group 'font-lock-highlighting-faces)  
12850    
12851  (defface vhdl-font-lock-function-face  (defface vhdl-font-lock-function-face
12852    '((((class color) (background light)) (:foreground "Cyan4"))    '((((class color) (background light)) (:foreground "Cyan4"))
12853      (((class color) (background dark)) (:foreground "Orchid1"))      (((class color) (background dark)) (:foreground "Orchid1"))
12854      (t (:italic t :bold t)))      (t (:italic t :bold t)))
12855    "Font lock mode face used to highlight standardized functions and packages."    "Font lock mode face used to highlight standardized functions and packages."
12856    :group 'vhdl-highlight-faces    :group 'vhdl-highlight-faces)
   :group 'font-lock-highlighting-faces)  
12857    
12858  (defface vhdl-font-lock-directive-face  (defface vhdl-font-lock-directive-face
12859    '((((class color) (background light)) (:foreground "CadetBlue"))    '((((class color) (background light)) (:foreground "CadetBlue"))
12860      (((class color) (background dark)) (:foreground "Aquamarine"))      (((class color) (background dark)) (:foreground "Aquamarine"))
12861      (t (:italic t :bold t)))      (t (:italic t :bold t)))
12862    "Font lock mode face used to highlight directives."    "Font lock mode face used to highlight directives."
12863    :group 'vhdl-highlight-faces    :group 'vhdl-highlight-faces)
   :group 'font-lock-highlighting-faces)  
12864    
12865  (defface vhdl-font-lock-reserved-words-face  (defface vhdl-font-lock-reserved-words-face
12866    '((((class color) (background light)) (:foreground "Orange" :bold t))    '((((class color) (background light)) (:foreground "Orange" :bold t))
# Line 12874  This does background highlighting of tra Line 12869  This does background highlighting of tra
12869      (((class color) (background dark)) (:foreground "Yellow" :bold t))      (((class color) (background dark)) (:foreground "Yellow" :bold t))
12870      (t ()))      (t ()))
12871    "Font lock mode face used to highlight additional reserved words."    "Font lock mode face used to highlight additional reserved words."
12872    :group 'vhdl-highlight-faces    :group 'vhdl-highlight-faces)
   :group 'font-lock-highlighting-faces)  
12873    
12874  (defface vhdl-font-lock-translate-off-face  (defface vhdl-font-lock-translate-off-face
12875    '((((class color) (background light)) (:background "LightGray"))    '((((class color) (background light)) (:background "LightGray"))
12876      (((class color) (background dark)) (:background "DimGray"))      (((class color) (background dark)) (:background "DimGray"))
12877      (t ()))      (t ()))
12878    "Font lock mode face used to background highlight translate-off regions."    "Font lock mode face used to background highlight translate-off regions."
12879    :group 'vhdl-highlight-faces    :group 'vhdl-highlight-faces)
   :group 'font-lock-highlighting-faces)  
12880    
12881  ;; font lock mode faces used to highlight words with special syntax.  ;; font lock mode faces used to highlight words with special syntax.
12882  (let ((syntax-alist vhdl-special-syntax-alist))  (let ((syntax-alist vhdl-special-syntax-alist))
# Line 12897  This does background highlighting of tra Line 12890  This does background highlighting of tra
12890                 (t ()))                 (t ()))
12891               ,(concat "Font lock mode face used to highlight "               ,(concat "Font lock mode face used to highlight "
12892                        (nth 0 (car syntax-alist)) ".")                        (nth 0 (car syntax-alist)) ".")
12893               :group 'vhdl-highlight-faces               :group 'vhdl-highlight-faces))
              :group 'font-lock-highlighting-faces))  
12894      (setq syntax-alist (cdr syntax-alist))))      (setq syntax-alist (cdr syntax-alist))))
12895    
12896  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26