Mercurial > emacs
comparison lisp/textmodes/flyspell.el @ 104778:afa0e028ba97
Mark face aliases with "-face" suffix as obsolete.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 01 Sep 2009 07:24:13 +0000 |
| parents | 99f2f3ae1c56 |
| children | 716269aba178 |
comparison
equal
deleted
inserted
replaced
| 104777:537e1db33ebf | 104778:afa0e028ba97 |
|---|---|
| 1 ;;; flyspell.el --- on-the-fly spell checker | 1 ;;; flyspell.el --- on-the-fly spell checker |
| 2 | 2 |
| 3 ;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004, | 3 ;; Copyright (C) 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
| 4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. | 4 ;; 2008, 2009 Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Author: Manuel Serrano <Manuel.Serrano@sophia.inria.fr> | 6 ;; Author: Manuel Serrano <Manuel.Serrano@sophia.inria.fr> |
| 7 ;; Maintainer: FSF | 7 ;; Maintainer: FSF |
| 8 ;; Keywords: convenience | 8 ;; Keywords: convenience |
| 9 | 9 |
| 438 (defface flyspell-incorrect | 438 (defface flyspell-incorrect |
| 439 '((((class color)) (:foreground "OrangeRed" :bold t :underline t)) | 439 '((((class color)) (:foreground "OrangeRed" :bold t :underline t)) |
| 440 (t (:bold t))) | 440 (t (:bold t))) |
| 441 "Face used for marking a misspelled word in Flyspell." | 441 "Face used for marking a misspelled word in Flyspell." |
| 442 :group 'flyspell) | 442 :group 'flyspell) |
| 443 ;; backward-compatibility alias | 443 (define-obsolete-face-alias 'flyspell-incorrect-face 'flyspell-incorrect "22.1") |
| 444 (put 'flyspell-incorrect-face 'face-alias 'flyspell-incorrect) | |
| 445 | 444 |
| 446 (defface flyspell-duplicate | 445 (defface flyspell-duplicate |
| 447 '((((class color)) (:foreground "Gold3" :bold t :underline t)) | 446 '((((class color)) (:foreground "Gold3" :bold t :underline t)) |
| 448 (t (:bold t))) | 447 (t (:bold t))) |
| 449 "Face used for marking a misspelled word that appears twice in the buffer. | 448 "Face used for marking a misspelled word that appears twice in the buffer. |
| 450 See also `flyspell-duplicate-distance'." | 449 See also `flyspell-duplicate-distance'." |
| 451 :group 'flyspell) | 450 :group 'flyspell) |
| 452 ;; backward-compatibility alias | 451 (define-obsolete-face-alias 'flyspell-duplicate-face 'flyspell-duplicate "22.1") |
| 453 (put 'flyspell-duplicate-face 'face-alias 'flyspell-duplicate) | |
| 454 | 452 |
| 455 (defvar flyspell-overlay nil) | 453 (defvar flyspell-overlay nil) |
| 456 | 454 |
| 457 ;;*---------------------------------------------------------------------*/ | 455 ;;*---------------------------------------------------------------------*/ |
| 458 ;;* flyspell-mode ... */ | 456 ;;* flyspell-mode ... */ |