# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1118400379 0
# Node ID 72fae67581829b39a80b0cbf64bde536dca7759b
# Parent  1cde198ddda6a019025d531767d7408e3b1f02e1
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-393

Remove "-face" suffix from texinfo-heading face

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

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

diff -r 1cde198ddda6 -r 72fae6758182 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jun 10 10:45:56 2005 +0000
+++ b/lisp/ChangeLog	Fri Jun 10 10:46:19 2005 +0000
@@ -1,5 +1,11 @@
 2005-06-10  Miles Bader  <miles@gnu.org>
 
+	* textmodes/texinfo.el (texinfo-heading): Remove "-face" suffix
+	from face name.
+	(texinfo-heading-face): New backward-compatibility alias for
+	renamed face.
+	(texinfo-heading-face): Use renamed texinfo-heading face.
+
 	* textmodes/tex-mode.el (tex-math, tex-verbatim): Remove "-face"
 	suffix from face names.
 	(tex-math-face, tex-verbatim-face): 
diff -r 1cde198ddda6 -r 72fae6758182 lisp/textmodes/texinfo.el
--- a/lisp/textmodes/texinfo.el	Fri Jun 10 10:45:56 2005 +0000
+++ b/lisp/textmodes/texinfo.el	Fri Jun 10 10:46:19 2005 +0000
@@ -1,7 +1,7 @@
 ;;; texinfo.el --- major mode for editing Texinfo files
 
 ;; Copyright (C) 1985, 1988, 1989, 1990, 1991, 1992, 1993, 1996, 1997,
-;;           2000, 2001, 2003, 2004 Free Software Foundation, Inc.
+;;           2000, 2001, 2003, 2004, 2005 Free Software Foundation, Inc.
 
 ;; Author: Robert J. Chassell
 ;; Date:   [See date below for texinfo-version]
@@ -343,11 +343,13 @@
   "Regexp for environment-like Texinfo list commands.
 Subexpression 1 is what goes into the corresponding `@end' statement.")
 
-(defface texinfo-heading-face
+(defface texinfo-heading
   '((t (:inherit font-lock-function-name-face)))
   "Face used for section headings in `texinfo-mode'."
   :group 'texinfo)
-(defvar texinfo-heading-face 'texinfo-heading-face)
+;; backward-compatibility alias
+(put 'texinfo-heading-face 'face-alias 'texinfo-heading)
+(defvar texinfo-heading-face 'texinfo-heading)
 
 (defvar texinfo-font-lock-keywords
   `(;; All but the first had an OVERRIDE of t.