diff options
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/flyspell.el | 10 | ||||
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 6 |
2 files changed, 6 insertions, 10 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index f3a15b2c5cc..f7794e1bf6d 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -1,7 +1,7 @@ ;;; flyspell.el --- on-the-fly spell checker -;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008, 2009 Free Software Foundation, Inc. ;; Author: Manuel Serrano <Manuel.Serrano@sophia.inria.fr> ;; Maintainer: FSF @@ -440,8 +440,7 @@ property of the major mode name.") (t (:bold t))) "Face used for marking a misspelled word in Flyspell." :group 'flyspell) -;; backward-compatibility alias -(put 'flyspell-incorrect-face 'face-alias 'flyspell-incorrect) +(define-obsolete-face-alias 'flyspell-incorrect-face 'flyspell-incorrect "22.1") (defface flyspell-duplicate '((((class color)) (:foreground "Gold3" :bold t :underline t)) @@ -449,8 +448,7 @@ property of the major mode name.") "Face used for marking a misspelled word that appears twice in the buffer. See also `flyspell-duplicate-distance'." :group 'flyspell) -;; backward-compatibility alias -(put 'flyspell-duplicate-face 'face-alias 'flyspell-duplicate) +(define-obsolete-face-alias 'flyspell-duplicate-face 'flyspell-duplicate "22.1") (defvar flyspell-overlay nil) diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index ed975ab45c6..b45cb25b3b7 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -719,8 +719,7 @@ Not smaller than the value set by `tex-suscript-height-minimum'." '((t :inherit font-lock-string-face)) "Face used to highlight TeX math expressions." :group 'tex) -;; backward-compatibility alias -(put 'tex-math-face 'face-alias 'tex-math) +(define-obsolete-face-alias 'tex-math-face 'tex-math "22.1") (defvar tex-math-face 'tex-math) (defface tex-verbatim @@ -728,8 +727,7 @@ Not smaller than the value set by `tex-suscript-height-minimum'." '((t :family "courier")) "Face used to highlight TeX verbatim environments." :group 'tex) -;; backward-compatibility alias -(put 'tex-verbatim-face 'face-alias 'tex-verbatim) +(define-obsolete-face-alias 'tex-verbatim-face 'tex-verbatim "22.1") (defvar tex-verbatim-face 'tex-verbatim) (defun tex-font-lock-verb (end) |