Re: flyspell-default-dictionary

[Jason Rumney]

Richard Stallman <address@hidden> writes:

> Is this the change that you had in mind?  Does it work?

That was the sort of change I had in mind, but the :type line appears
to be wrong, as I get 

widget-apply: Symbol's function definition is void: nil

when I try to customize the variable.

Looking at some of the defcustoms in gnus.el, the following seems to
be what is needed:

  :type '(choice string (const :tag "Default" nil))


I just tried it with that additional change, and it works.


> *** flyspell.el.~1.33.~       Sat Nov 10 13:36:02 2001
> --- flyspell.el       Sun Nov 11 02:39:21 2001
> ***************
> *** 156,170 ****
>     :version "21.1"
>     :type 'hook)
>   
> ! (defcustom flyspell-default-dictionary "american"
>     "A string that is the name of the default dictionary.
>   This is passed to the `ispell-change-dictionary' when flyspell is started.
> ! If the variables `ispell-local-dictionary' or `ispell-dictionary' are non 
> nil
> ! when flyspell is started, the value of that variables is used instead
> ! of `flyspell-default-dictionary' to select the default dictionary."
>     :group 'flyspell
>     :version "21.1"
> !   :type 'string)
>   
>   (defcustom flyspell-tex-command-regexp
>     "\\(\\(begin\\|end\\)[ 
> \t]*{\\|\\(cite[a-z*]*\\|label\\|ref\\|eqref\\|usepackage\\|documentclass\\)[ 
> \t]*\\(\\[[^]]*\\]\\)?{[^{}]*\\)"
> --- 156,172 ----
>     :version "21.1"
>     :type 'hook)
>   
> ! (defcustom flyspell-default-dictionary nil
>     "A string that is the name of the default dictionary.
>   This is passed to the `ispell-change-dictionary' when flyspell is started.
> ! If the variable `ispell-local-dictionary' or `ispell-dictionary' is non-nil
> ! when flyspell is started, the value of that variable is used instead
> ! of `flyspell-default-dictionary' to select the default dictionary.
> ! Otherwise, if `flyspell-default-dictionary' is nil, it means to use
> ! Ispell's ultimate default dictionary."
>     :group 'flyspell
>     :version "21.1"
> !   :type '(choice string nil))
>   
>   (defcustom flyspell-tex-command-regexp
>     "\\(\\(begin\\|end\\)[ 
> \t]*{\\|\\(cite[a-z*]*\\|label\\|ref\\|eqref\\|usepackage\\|documentclass\\)[ 
> \t]*\\(\\[[^]]*\\]\\)?{[^{}]*\\)"
> 
> 

-- 
Jason Rumney