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 () |