Mercurial > emacs
comparison lisp/progmodes/antlr-mode.el @ 104784:5b25a52d36d3
Mark face aliases with "-face" suffix as obsolete.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 01 Sep 2009 16:26:23 +0000 |
| parents | 3b3c7e10cd97 |
| children | df4934f25eef |
comparison
equal
deleted
inserted
replaced
| 104783:ddf360111014 | 104784:5b25a52d36d3 |
|---|---|
| 833 "Face to prevent strings from language dependent highlighting. | 833 "Face to prevent strings from language dependent highlighting. |
| 834 Do not change." | 834 Do not change." |
| 835 :group 'antlr) | 835 :group 'antlr) |
| 836 ;; backward-compatibility alias | 836 ;; backward-compatibility alias |
| 837 (put 'antlr-font-lock-default-face 'face-alias 'antlr-default) | 837 (put 'antlr-font-lock-default-face 'face-alias 'antlr-default) |
| 838 (put 'antlr-font-lock-default-face 'obsolete-face "22.1") | |
| 838 | 839 |
| 839 (defvar antlr-keyword-face 'antlr-keyword) | 840 (defvar antlr-keyword-face 'antlr-keyword) |
| 840 (defface antlr-keyword | 841 (defface antlr-keyword |
| 841 (cond-emacs-xemacs | 842 (cond-emacs-xemacs |
| 842 '((((class color) (background light)) | 843 '((((class color) (background light)) |
| 844 (t :inherit font-lock-keyword-face))) | 845 (t :inherit font-lock-keyword-face))) |
| 845 "ANTLR keywords." | 846 "ANTLR keywords." |
| 846 :group 'antlr) | 847 :group 'antlr) |
| 847 ;; backward-compatibility alias | 848 ;; backward-compatibility alias |
| 848 (put 'antlr-font-lock-keyword-face 'face-alias 'antlr-keyword) | 849 (put 'antlr-font-lock-keyword-face 'face-alias 'antlr-keyword) |
| 850 (put 'antlr-font-lock-keyword-face 'obsolete-face "22.1") | |
| 849 | 851 |
| 850 (defvar antlr-syntax-face 'antlr-keyword) | 852 (defvar antlr-syntax-face 'antlr-keyword) |
| 851 (defface antlr-syntax | 853 (defface antlr-syntax |
| 852 (cond-emacs-xemacs | 854 (cond-emacs-xemacs |
| 853 '((((class color) (background light)) | 855 '((((class color) (background light)) |
| 855 (t :inherit font-lock-constant-face))) | 857 (t :inherit font-lock-constant-face))) |
| 856 "ANTLR syntax symbols like :, |, (, ), ...." | 858 "ANTLR syntax symbols like :, |, (, ), ...." |
| 857 :group 'antlr) | 859 :group 'antlr) |
| 858 ;; backward-compatibility alias | 860 ;; backward-compatibility alias |
| 859 (put 'antlr-font-lock-syntax-face 'face-alias 'antlr-syntax) | 861 (put 'antlr-font-lock-syntax-face 'face-alias 'antlr-syntax) |
| 862 (put 'antlr-font-lock-syntax-face 'obsolete-face "22.1") | |
| 860 | 863 |
| 861 (defvar antlr-ruledef-face 'antlr-ruledef) | 864 (defvar antlr-ruledef-face 'antlr-ruledef) |
| 862 (defface antlr-ruledef | 865 (defface antlr-ruledef |
| 863 (cond-emacs-xemacs | 866 (cond-emacs-xemacs |
| 864 '((((class color) (background light)) | 867 '((((class color) (background light)) |
| 866 (t :inherit font-lock-function-name-face))) | 869 (t :inherit font-lock-function-name-face))) |
| 867 "ANTLR rule references (definition)." | 870 "ANTLR rule references (definition)." |
| 868 :group 'antlr) | 871 :group 'antlr) |
| 869 ;; backward-compatibility alias | 872 ;; backward-compatibility alias |
| 870 (put 'antlr-font-lock-ruledef-face 'face-alias 'antlr-ruledef) | 873 (put 'antlr-font-lock-ruledef-face 'face-alias 'antlr-ruledef) |
| 874 (put 'antlr-font-lock-ruledef-face 'obsolete-face "22.1") | |
| 871 | 875 |
| 872 (defvar antlr-tokendef-face 'antlr-tokendef) | 876 (defvar antlr-tokendef-face 'antlr-tokendef) |
| 873 (defface antlr-tokendef | 877 (defface antlr-tokendef |
| 874 (cond-emacs-xemacs | 878 (cond-emacs-xemacs |
| 875 '((((class color) (background light)) | 879 '((((class color) (background light)) |
| 877 (t :inherit font-lock-function-name-face))) | 881 (t :inherit font-lock-function-name-face))) |
| 878 "ANTLR token references (definition)." | 882 "ANTLR token references (definition)." |
| 879 :group 'antlr) | 883 :group 'antlr) |
| 880 ;; backward-compatibility alias | 884 ;; backward-compatibility alias |
| 881 (put 'antlr-font-lock-tokendef-face 'face-alias 'antlr-tokendef) | 885 (put 'antlr-font-lock-tokendef-face 'face-alias 'antlr-tokendef) |
| 886 (put 'antlr-font-lock-tokendef-face 'obsolete-face "22.1") | |
| 882 | 887 |
| 883 (defvar antlr-ruleref-face 'antlr-ruleref) | 888 (defvar antlr-ruleref-face 'antlr-ruleref) |
| 884 (defface antlr-ruleref | 889 (defface antlr-ruleref |
| 885 '((((class color) (background light)) (:foreground "blue4")) | 890 '((((class color) (background light)) (:foreground "blue4")) |
| 886 (t :inherit font-lock-type-face)) | 891 (t :inherit font-lock-type-face)) |
| 887 "ANTLR rule references (usage)." | 892 "ANTLR rule references (usage)." |
| 888 :group 'antlr) | 893 :group 'antlr) |
| 889 ;; backward-compatibility alias | 894 ;; backward-compatibility alias |
| 890 (put 'antlr-font-lock-ruleref-face 'face-alias 'antlr-ruleref) | 895 (put 'antlr-font-lock-ruleref-face 'face-alias 'antlr-ruleref) |
| 896 (put 'antlr-font-lock-ruleref-face 'obsolete-face "22.1") | |
| 891 | 897 |
| 892 (defvar antlr-tokenref-face 'antlr-tokenref) | 898 (defvar antlr-tokenref-face 'antlr-tokenref) |
| 893 (defface antlr-tokenref | 899 (defface antlr-tokenref |
| 894 '((((class color) (background light)) (:foreground "orange4")) | 900 '((((class color) (background light)) (:foreground "orange4")) |
| 895 (t :inherit font-lock-type-face)) | 901 (t :inherit font-lock-type-face)) |
| 896 "ANTLR token references (usage)." | 902 "ANTLR token references (usage)." |
| 897 :group 'antlr) | 903 :group 'antlr) |
| 898 ;; backward-compatibility alias | 904 ;; backward-compatibility alias |
| 899 (put 'antlr-font-lock-tokenref-face 'face-alias 'antlr-tokenref) | 905 (put 'antlr-font-lock-tokenref-face 'face-alias 'antlr-tokenref) |
| 906 (put 'antlr-font-lock-tokenref-face 'obsolete-face "22.1") | |
| 900 | 907 |
| 901 (defvar antlr-literal-face 'antlr-literal) | 908 (defvar antlr-literal-face 'antlr-literal) |
| 902 (defface antlr-literal | 909 (defface antlr-literal |
| 903 (cond-emacs-xemacs | 910 (cond-emacs-xemacs |
| 904 '((((class color) (background light)) | 911 '((((class color) (background light)) |
| 908 It is used to highlight strings matched by the first regexp group of | 915 It is used to highlight strings matched by the first regexp group of |
| 909 `antlr-font-lock-literal-regexp'." | 916 `antlr-font-lock-literal-regexp'." |
| 910 :group 'antlr) | 917 :group 'antlr) |
| 911 ;; backward-compatibility alias | 918 ;; backward-compatibility alias |
| 912 (put 'antlr-font-lock-literal-face 'face-alias 'antlr-literal) | 919 (put 'antlr-font-lock-literal-face 'face-alias 'antlr-literal) |
| 920 (put 'antlr-font-lock-literal-face 'obsolete-face "22.1") | |
| 913 | 921 |
| 914 (defcustom antlr-font-lock-literal-regexp "\"\\(\\sw\\(\\sw\\|-\\)*\\)\"" | 922 (defcustom antlr-font-lock-literal-regexp "\"\\(\\sw\\(\\sw\\|-\\)*\\)\"" |
| 915 "Regexp matching literals with special syntax highlighting, or nil. | 923 "Regexp matching literals with special syntax highlighting, or nil. |
| 916 If nil, there is no special syntax highlighting for some literals. | 924 If nil, there is no special syntax highlighting for some literals. |
| 917 Otherwise, it should be a regular expression which must contain a regexp | 925 Otherwise, it should be a regular expression which must contain a regexp |