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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76cb0f150f458cc3a758d5e48b57edf70363c84e..895d30750b82274356f661d0e951d52fdc404b8d 100644 (file)
--- 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 b936c45b50cda245ec526e8dd60b78fdb731f74d..d7098639ae5d21d71ba43096c8513c84697666c3 100644 (file)
--- 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