Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-390

Remove "-face" suffix from sgml-namespace face

2005-06-10  Miles Bader  <miles@gnu.org>

   * lisp/textmodes/sgml-mode.el (sgml-namespace): Remove "-face" suffix
   from face name.
   (sgml-namespace-face): New backward-compatibility alias for
   renamed face.
   (sgml-namespace-face): Use renamed sgml-namespace face.

2 files changed, 10 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5fe427d299f..0b7338f31fd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2005-06-10  Miles Bader  <miles@gnu.org>
 
+        * textmodes/sgml-mode.el (sgml-namespace): Remove "-face" suffix
+        from face name.
+        (sgml-namespace-face): New backward-compatibility alias for
+        renamed face.
+        (sgml-namespace-face): Use renamed sgml-namespace face.
+
         * textmodes/org.el (org-level-1, org-level-2, org-level-3)
         (org-level-4, org-level-5, org-level-6, org-level-7)
         (org-level-8, org-warning, org-headline-done)
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index cdc2916e799..7e1167a9396 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -248,11 +248,13 @@ separated by a space."
   "Regular expression that matches a non-empty start tag.
 Any terminating `>' or `/' is not matched.")
 
-(defface sgml-namespace-face
+(defface sgml-namespace
   '((t (:inherit font-lock-builtin-face)))
   "`sgml-mode' face used to highlight the namespace part of identifiers."
   :group 'sgml)
-(defvar sgml-namespace-face 'sgml-namespace-face)
+;; backward-compatibility alias
+(put 'sgml-namespace-face 'face-alias 'sgml-namespace)
+(defvar sgml-namespace-face 'sgml-namespace)
 
 ;; internal
 (defconst sgml-font-lock-keywords-1