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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5fe427d..0b7338f 100644 (file)
--- 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 cdc2916..7e1167a 100644 (file)
--- 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