changeset 63226:33e854825b44

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.
author Miles Bader <miles@gnu.org>
date Fri, 10 Jun 2005 10:45:17 +0000
parents 7660591a3c92
children 6f4701bb40a7
files lisp/ChangeLog lisp/textmodes/sgml-mode.el
diffstat 2 files changed, 10 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Jun 10 10:44:55 2005 +0000
+++ b/lisp/ChangeLog	Fri Jun 10 10:45:17 2005 +0000
@@ -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)
--- a/lisp/textmodes/sgml-mode.el	Fri Jun 10 10:44:55 2005 +0000
+++ b/lisp/textmodes/sgml-mode.el	Fri Jun 10 10:45:17 2005 +0000
@@ -248,11 +248,13 @@
   "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