Mercurial > emacs
comparison lisp/textmodes/flyspell.el @ 77381:b2648f8ce834
(flyspell-define-abbrev): Downcase abbrev before defining it.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 22 Apr 2007 00:19:37 +0000 |
| parents | c5ea5d1e6950 |
| children | 7be6bca439a5 e6fdae9180d4 |
comparison
equal
deleted
inserted
replaced
| 77380:41633906d2e3 | 77381:b2648f8ce834 |
|---|---|
| 1825 ;;* flyspell-define-abbrev ... */ | 1825 ;;* flyspell-define-abbrev ... */ |
| 1826 ;;*---------------------------------------------------------------------*/ | 1826 ;;*---------------------------------------------------------------------*/ |
| 1827 (defun flyspell-define-abbrev (name expansion) | 1827 (defun flyspell-define-abbrev (name expansion) |
| 1828 (let ((table (flyspell-abbrev-table))) | 1828 (let ((table (flyspell-abbrev-table))) |
| 1829 (when table | 1829 (when table |
| 1830 (define-abbrev table name expansion)))) | 1830 (define-abbrev table (downcase name) expansion)))) |
| 1831 | 1831 |
| 1832 ;;*---------------------------------------------------------------------*/ | 1832 ;;*---------------------------------------------------------------------*/ |
| 1833 ;;* flyspell-auto-correct-word ... */ | 1833 ;;* flyspell-auto-correct-word ... */ |
| 1834 ;;*---------------------------------------------------------------------*/ | 1834 ;;*---------------------------------------------------------------------*/ |
| 1835 (defun flyspell-auto-correct-word () | 1835 (defun flyspell-auto-correct-word () |