From 49c539a128756bba53430ca5f6254583d70aacf5 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 1 Sep 2009 07:46:01 +0000 Subject: [PATCH] (texinfo-heading-face): Mark face aliases with "-face" suffix as obsolete. --- lisp/ChangeLog | 1 + lisp/textmodes/texinfo.el | 6 +++--- 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 -- 2.39.5