# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1177201177 0
# Node ID b2648f8ce83485425f8b1acf6bd5e1446baab199
# Parent  41633906d2e3106bf0c4186b33dd8ef9487456ba
(flyspell-define-abbrev): Downcase abbrev before defining it.

diff -r 41633906d2e3 -r b2648f8ce834 lisp/textmodes/flyspell.el
--- a/lisp/textmodes/flyspell.el	Sat Apr 21 22:00:45 2007 +0000
+++ b/lisp/textmodes/flyspell.el	Sun Apr 22 00:19:37 2007 +0000
@@ -1827,7 +1827,7 @@
 (defun flyspell-define-abbrev (name expansion)
   (let ((table (flyspell-abbrev-table)))
     (when table
-      (define-abbrev table name expansion))))
+      (define-abbrev table (downcase name) expansion))))
 
 ;;*---------------------------------------------------------------------*/
 ;;*    flyspell-auto-correct-word ...                                   */