(texinfo-heading-face): Mark face aliases with "-face" suffix as obsolete.

2 files changed, 4 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76cb0f150f4..895d30750b8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index b936c45b50c..d7098639ae5 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -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 @@ Subexpression 1 is what goes into the corresponding `@end' statement.")
   '((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