changeset 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 ddf360111014
children 7c703efbce29
files lisp/ChangeLog lisp/progmodes/antlr-mode.el
diffstat 2 files changed, 13 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Sep 01 16:17:53 2009 +0000
+++ b/lisp/ChangeLog	Tue Sep 01 16:26:23 2009 +0000
@@ -50,6 +50,11 @@
 	* eshell/em-prompt.el (eshell-prompt-face):
 	* eshell/esh-test.el (eshell-test-ok-face, eshell-test-failed-face):
 	* obsolete/old-whitespace.el (whitespace-highlight-face):
+	* progmodes/antlr-mode.el (antlr-font-lock-default-face)
+	(antlr-font-lock-keyword-face, antlr-font-lock-syntax-face)
+	(antlr-font-lock-ruledef-face, antlr-font-lock-tokendef-face)
+	(antlr-font-lock-ruleref-face, antlr-font-lock-tokenref-face)
+	(antlr-font-lock-literal-face):
 	* progmodes/ebrowse.el (ebrowse-tree-mark-face)
 	(ebrowse-root-class-face, ebrowse-file-name-face)
 	(ebrowse-default-face, ebrowse-member-attribute-face)
--- a/lisp/progmodes/antlr-mode.el	Tue Sep 01 16:17:53 2009 +0000
+++ b/lisp/progmodes/antlr-mode.el	Tue Sep 01 16:26:23 2009 +0000
@@ -835,6 +835,7 @@
   :group 'antlr)
 ;; backward-compatibility alias
 (put 'antlr-font-lock-default-face 'face-alias 'antlr-default)
+(put 'antlr-font-lock-default-face 'obsolete-face "22.1")
 
 (defvar antlr-keyword-face 'antlr-keyword)
 (defface antlr-keyword
@@ -846,6 +847,7 @@
   :group 'antlr)
 ;; backward-compatibility alias
 (put 'antlr-font-lock-keyword-face 'face-alias 'antlr-keyword)
+(put 'antlr-font-lock-keyword-face 'obsolete-face "22.1")
 
 (defvar antlr-syntax-face 'antlr-keyword)
 (defface antlr-syntax
@@ -857,6 +859,7 @@
   :group 'antlr)
 ;; backward-compatibility alias
 (put 'antlr-font-lock-syntax-face 'face-alias 'antlr-syntax)
+(put 'antlr-font-lock-syntax-face 'obsolete-face "22.1")
 
 (defvar antlr-ruledef-face 'antlr-ruledef)
 (defface antlr-ruledef
@@ -868,6 +871,7 @@
   :group 'antlr)
 ;; backward-compatibility alias
 (put 'antlr-font-lock-ruledef-face 'face-alias 'antlr-ruledef)
+(put 'antlr-font-lock-ruledef-face 'obsolete-face "22.1")
 
 (defvar antlr-tokendef-face 'antlr-tokendef)
 (defface antlr-tokendef
@@ -879,6 +883,7 @@
   :group 'antlr)
 ;; backward-compatibility alias
 (put 'antlr-font-lock-tokendef-face 'face-alias 'antlr-tokendef)
+(put 'antlr-font-lock-tokendef-face 'obsolete-face "22.1")
 
 (defvar antlr-ruleref-face 'antlr-ruleref)
 (defface antlr-ruleref
@@ -888,6 +893,7 @@
   :group 'antlr)
 ;; backward-compatibility alias
 (put 'antlr-font-lock-ruleref-face 'face-alias 'antlr-ruleref)
+(put 'antlr-font-lock-ruleref-face 'obsolete-face "22.1")
 
 (defvar antlr-tokenref-face 'antlr-tokenref)
 (defface antlr-tokenref
@@ -897,6 +903,7 @@
   :group 'antlr)
 ;; backward-compatibility alias
 (put 'antlr-font-lock-tokenref-face 'face-alias 'antlr-tokenref)
+(put 'antlr-font-lock-tokenref-face 'obsolete-face "22.1")
 
 (defvar antlr-literal-face 'antlr-literal)
 (defface antlr-literal
@@ -910,6 +917,7 @@
   :group 'antlr)
 ;; backward-compatibility alias
 (put 'antlr-font-lock-literal-face 'face-alias 'antlr-literal)
+(put 'antlr-font-lock-literal-face 'obsolete-face "22.1")
 
 (defcustom antlr-font-lock-literal-regexp "\"\\(\\sw\\(\\sw\\|-\\)*\\)\""
   "Regexp matching literals with special syntax highlighting, or nil.