changeset 104779:e921f11e0611

(texinfo-heading-face): Mark face aliases with "-face" suffix as obsolete.
author Glenn Morris <rgm@gnu.org>
date Tue, 01 Sep 2009 07:46:01 +0000
parents afa0e028ba97
children d44c1d7690e7
files lisp/ChangeLog lisp/textmodes/texinfo.el
diffstat 2 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Sep 01 07:24:13 2009 +0000
+++ b/lisp/ChangeLog	Tue Sep 01 07:46:01 2009 +0000
@@ -42,6 +42,7 @@
 	* textmodes/flyspell.el (flyspell-incorrect-face)
 	(flyspell-duplicate-face):
 	* textmodes/tex-mode.el (tex-math-face, tex-verbatim-face):
+	* textmodes/texinfo.el (texinfo-heading-face):
 	Mark face aliases with "-face" suffix as obsolete.
 
 	* mail/feedmail.el (file-name-buffer-file-type-alist): Define for
--- a/lisp/textmodes/texinfo.el	Tue Sep 01 07:24:13 2009 +0000
+++ b/lisp/textmodes/texinfo.el	Tue Sep 01 07:46:01 2009 +0000
@@ -1,7 +1,8 @@
 ;;; texinfo.el --- major mode for editing Texinfo files -*- coding: utf-8 -*-
 
 ;; Copyright (C) 1985, 1988, 1989, 1990, 1991, 1992, 1993, 1996, 1997,
-;;   2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;;   2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
+;;   Free Software Foundation, Inc.
 
 ;; Author: Robert J. Chassell
 ;; Date:   [See date below for texinfo-version]
@@ -338,8 +339,7 @@
   '((t (:inherit font-lock-function-name-face)))
   "Face used for section headings in `texinfo-mode'."
   :group 'texinfo)
-;; backward-compatibility alias
-(put 'texinfo-heading-face 'face-alias 'texinfo-heading)
+(define-obsolete-face-alias 'texinfo-heading-face 'texinfo-heading "22.1")
 (defvar texinfo-heading-face 'texinfo-heading)
 
 (defvar texinfo-font-lock-keywords