Mercurial > emacs

comparison lisp/progmodes/antlr-mode.el @ 91204:53108e6cea98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-294
author Miles Bader <miles@gnu.org>
date Thu, 06 Dec 2007 09:51:45 +0000
parents 4bc33ffdda1a 48d7747f9483
children 2fcaae6177a5
comparison
equal deleted inserted replaced
91203:db40129142b2 91204:53108e6cea98
838 838
839 (defvar antlr-keyword-face 'antlr-keyword) 839 (defvar antlr-keyword-face 'antlr-keyword)
840 (defface antlr-keyword 840 (defface antlr-keyword
841 (cond-emacs-xemacs 841 (cond-emacs-xemacs
842 '((((class color) (background light)) 842 '((((class color) (background light))
843 (:foreground "black" :EMACS :weight bold :XEMACS :bold t)))) 843 (:foreground "black" :EMACS :weight bold :XEMACS :bold t))
844 (t :inherit font-lock-keyword-face)))
844 "ANTLR keywords." 845 "ANTLR keywords."
845 :group 'antlr) 846 :group 'antlr)
846 ;; backward-compatibility alias 847 ;; backward-compatibility alias
847 (put 'antlr-font-lock-keyword-face 'face-alias 'antlr-keyword) 848 (put 'antlr-font-lock-keyword-face 'face-alias 'antlr-keyword)
848 849
849 (defvar antlr-syntax-face 'antlr-keyword) 850 (defvar antlr-syntax-face 'antlr-keyword)
850 (defface antlr-syntax 851 (defface antlr-syntax
851 (cond-emacs-xemacs 852 (cond-emacs-xemacs
852 '((((class color) (background light)) 853 '((((class color) (background light))
853 (:foreground "black" :EMACS :weight bold :XEMACS :bold t)))) 854 (:foreground "black" :EMACS :weight bold :XEMACS :bold t))
855 (t :inherit font-lock-constant-face)))
854 "ANTLR syntax symbols like :, |, (, ), ...." 856 "ANTLR syntax symbols like :, |, (, ), ...."
855 :group 'antlr) 857 :group 'antlr)
856 ;; backward-compatibility alias 858 ;; backward-compatibility alias
857 (put 'antlr-font-lock-syntax-face 'face-alias 'antlr-syntax) 859 (put 'antlr-font-lock-syntax-face 'face-alias 'antlr-syntax)
858 860
859 (defvar antlr-ruledef-face 'antlr-ruledef) 861 (defvar antlr-ruledef-face 'antlr-ruledef)
860 (defface antlr-ruledef 862 (defface antlr-ruledef
861 (cond-emacs-xemacs 863 (cond-emacs-xemacs
862 '((((class color) (background light)) 864 '((((class color) (background light))
863 (:foreground "blue" :EMACS :weight bold :XEMACS :bold t)))) 865 (:foreground "blue" :EMACS :weight bold :XEMACS :bold t))
866 (t :inherit font-lock-function-name-face)))
864 "ANTLR rule references (definition)." 867 "ANTLR rule references (definition)."
865 :group 'antlr) 868 :group 'antlr)
866 ;; backward-compatibility alias 869 ;; backward-compatibility alias
867 (put 'antlr-font-lock-ruledef-face 'face-alias 'antlr-ruledef) 870 (put 'antlr-font-lock-ruledef-face 'face-alias 'antlr-ruledef)
868 871
869 (defvar antlr-tokendef-face 'antlr-tokendef) 872 (defvar antlr-tokendef-face 'antlr-tokendef)
870 (defface antlr-tokendef 873 (defface antlr-tokendef
871 (cond-emacs-xemacs 874 (cond-emacs-xemacs
872 '((((class color) (background light)) 875 '((((class color) (background light))
873 (:foreground "blue" :EMACS :weight bold :XEMACS :bold t)))) 876 (:foreground "blue" :EMACS :weight bold :XEMACS :bold t))
877 (t :inherit font-lock-function-name-face)))
874 "ANTLR token references (definition)." 878 "ANTLR token references (definition)."
875 :group 'antlr) 879 :group 'antlr)
876 ;; backward-compatibility alias 880 ;; backward-compatibility alias
877 (put 'antlr-font-lock-tokendef-face 'face-alias 'antlr-tokendef) 881 (put 'antlr-font-lock-tokendef-face 'face-alias 'antlr-tokendef)
878 882
879 (defvar antlr-ruleref-face 'antlr-ruleref) 883 (defvar antlr-ruleref-face 'antlr-ruleref)
880 (defface antlr-ruleref 884 (defface antlr-ruleref
881 '((((class color) (background light)) (:foreground "blue4"))) 885 '((((class color) (background light)) (:foreground "blue4"))
886 (t :inherit font-lock-type-face))
882 "ANTLR rule references (usage)." 887 "ANTLR rule references (usage)."
883 :group 'antlr) 888 :group 'antlr)
884 ;; backward-compatibility alias 889 ;; backward-compatibility alias
885 (put 'antlr-font-lock-ruleref-face 'face-alias 'antlr-ruleref) 890 (put 'antlr-font-lock-ruleref-face 'face-alias 'antlr-ruleref)
886 891
887 (defvar antlr-tokenref-face 'antlr-tokenref) 892 (defvar antlr-tokenref-face 'antlr-tokenref)
888 (defface antlr-tokenref 893 (defface antlr-tokenref
889 '((((class color) (background light)) (:foreground "orange4"))) 894 '((((class color) (background light)) (:foreground "orange4"))
895 (t :inherit font-lock-type-face))
890 "ANTLR token references (usage)." 896 "ANTLR token references (usage)."
891 :group 'antlr) 897 :group 'antlr)
892 ;; backward-compatibility alias 898 ;; backward-compatibility alias
893 (put 'antlr-font-lock-tokenref-face 'face-alias 'antlr-tokenref) 899 (put 'antlr-font-lock-tokenref-face 'face-alias 'antlr-tokenref)
894 900
895 (defvar antlr-literal-face 'antlr-literal) 901 (defvar antlr-literal-face 'antlr-literal)
896 (defface antlr-literal 902 (defface antlr-literal
897 (cond-emacs-xemacs 903 (cond-emacs-xemacs
898 '((((class color) (background light)) 904 '((((class color) (background light))
899 (:foreground "brown4" :EMACS :weight bold :XEMACS :bold t)))) 905 (:foreground "brown4" :EMACS :weight bold :XEMACS :bold t))
906 (t :inherit font-lock-string-face)))
900 "ANTLR special literal tokens. 907 "ANTLR special literal tokens.
901 It is used to highlight strings matched by the first regexp group of 908 It is used to highlight strings matched by the first regexp group of
902 `antlr-font-lock-literal-regexp'." 909 `antlr-font-lock-literal-regexp'."
903 :group 'antlr) 910 :group 'antlr)
904 ;; backward-compatibility alias 911 ;; backward-compatibility alias