# HG changeset patch
# User Agustin Martin <agustin.martin@hispalinux.es>
# Date 1244553694 0
# Node ID 4b98e52b12b1ebd8345526493025550d256ed287
# Parent  eb941fcd33b402d3bfde21a34923fd573c2e7a1d
ispell.el:  Make `ispell-dictionary' customizable (#2555)

diff -r eb941fcd33b4 -r 4b98e52b12b1 lisp/ChangeLog
--- 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
diff -r eb941fcd33b4 -r 4b98e52b12b1 lisp/textmodes/ispell.el
--- 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."