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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b13139e0ae4e775bf4913eb743f419bd82d8917..9845f5a13d88529733e72c027da7c41a08f5f740 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index bd14c65837905c2fda2d05bf59347585d1dc682c..2be01d630f9121269f614c7073d34e124b741259 100644 (file)
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -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 @@ chapter."
   "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.