From 2aebf08d10770212f457f074ef2cbde571a16fd1 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 22 Apr 2007 00:22:14 +0000 Subject: [PATCH] (flyspell-define-abbrev): Downcase abbrev before defining it. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/flyspell.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 15b8105e428..0855c8a8218 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-04-22 Glenn Morris + + * textmodes/flyspell.el (flyspell-define-abbrev): Downcase abbrev + before defining it. + 2007-04-21 Martin Rudalics * progmodes/cc-mode.el 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." (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 ... */ -- 2.39.5