Mercurial > emacs
changeset 103360:4b98e52b12b1
ispell.el: Make `ispell-dictionary' customizable (#2555)
| author | Agustin Martin <agustin.martin@hispalinux.es> |
|---|---|
| date | Tue, 09 Jun 2009 13:21:34 +0000 |
| parents | eb941fcd33b4 |
| children | cb15fed5ca65 |
| files | lisp/ChangeLog lisp/textmodes/ispell.el |
| diffstat | 2 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jun 09 05:57:35 2009 +0000 +++ b/lisp/ChangeLog Tue Jun 09 13:21:34 2009 +0000 @@ -1,3 +1,7 @@ +2009-06-09 Agustín Martín <agustin.martin@hispalinux.es> + + * ispell.el: Make `ispell-dictionary' customizable (#2555) + 2009-06-08 Michael Albinus <michael.albinus@gmx.de> * ediff-util.el (ediff-compute-custom-diffs-maybe): Handle remote
--- a/lisp/textmodes/ispell.el Tue Jun 09 05:57:35 2009 +0000 +++ b/lisp/textmodes/ispell.el Tue Jun 09 13:21:34 2009 +0000 @@ -501,6 +501,12 @@ (make-variable-buffer-local 'ispell-local-dictionary) +(defcustom ispell-dictionary nil + "Default dictionary to use if `ispell-local-dictionary' is nil." + :type '(choice string + (const :tag "default" nil)) + :group 'ispell) + (defcustom ispell-extra-args nil "*If non-nil, a list of extra switches to pass to the Ispell program. For example, (\"-W\" \"3\") to cause it to accept all 1-3 character @@ -1251,9 +1257,6 @@ "The name of the current personal dictionary, or nil for the default. This is passed to the ispell process using the `-p' switch.") -(defvar ispell-dictionary nil - "Default dictionary to use if `ispell-local-dictionary' is nil.") - (defun ispell-decode-string (str) "Decodes multibyte character strings. Protects against bogus binding of `enable-multibyte-characters' in XEmacs."