diff options
| author | Glenn Morris | 2007-04-22 00:22:14 +0000 |
|---|---|---|
| committer | Glenn Morris | 2007-04-22 00:22:14 +0000 |
| commit | 2aebf08d10770212f457f074ef2cbde571a16fd1 (patch) | |
| tree | e87c797d7f9b4ee9b017e7318b2a8f74adaa5ac5 /lisp/textmodes | |
| parent | 33a9c08c34c97634f858d2427a27e63e37f28827 (diff) | |
| download | emacs-2aebf08d10770212f457f074ef2cbde571a16fd1.tar.gz emacs-2aebf08d10770212f457f074ef2cbde571a16fd1.zip | |
(flyspell-define-abbrev): Downcase abbrev before defining it.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/flyspell.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 339160db9bd..185f2e8dea3 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el | |||
| @@ -1827,7 +1827,7 @@ misspelled words backwards." | |||
| 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 ... */ |