changeset 63229:72fae6758182

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.
author Miles Bader <miles@gnu.org>
date Fri, 10 Jun 2005 10:46:19 +0000
parents 1cde198ddda6
children e64fc04555a1
files lisp/ChangeLog lisp/textmodes/texinfo.el
diffstat 2 files changed, 11 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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): 
--- 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.