Re: flyspell and abbrev

[Glenn Morris]

Richard Stallman wrote:

> I think this is an issue for aspell or ispell (whichever one you are
> using). Not for Emacs.

No, I think rather that flyspell should downcase abbrevs before
defining them, like define-mode-abbrev does.

Beyond that, given the way expand-abbrev treats case, does it make any
sense for define-abbrev to allow you to define an abbrev without
downcasing it? They don't seem to work at all, eg:

emacs -Q -f abbrev-mode
(define-abbrev lisp-mode-abbrev-table "FOO" "foobar")

FOO -> not expanded
foo -> not expanded

(define-abbrev lisp-mode-abbrev-table "bar" "foobar")

bar -> foobar
Bar -> Foobar
BAr -> Foobar
BAR -> FOOBAR


*** flyspell.el 06 Apr 2007 19:55:53 -0700      1.117
--- flyspell.el 21 Apr 2007 16:30:23 -0700      
***************
*** 1827,1833 ****
  (defun flyspell-define-abbrev (name expansion)
    (let ((table (flyspell-abbrev-table)))
      (when table
!       (define-abbrev table name expansion))))
  
  ;;*---------------------------------------------------------------------*/
  ;;*    flyspell-auto-correct-word ...                                   */
--- 1827,1833 ----
  (defun flyspell-define-abbrev (name expansion)
    (let ((table (flyspell-abbrev-table)))
      (when table
!       (define-abbrev table (downcase name) expansion))))
  
  ;;*---------------------------------------------------------------------*/
  ;;*    flyspell-auto-correct-word ...                                   */