summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAgustín Martín <agustin.martin@hispalinux.es>2009-06-09 13:21:34 +0000
committerAgustín Martín <agustin.martin@hispalinux.es>2009-06-09 13:21:34 +0000
commit820c1f5036091d13efecc971b8e01005e07f1504 (patch)
tree17210589848ec1a9eb539dffca518fac1950f14e
parent40aa3f13c674e5c78bb6c0e85de8f5f0ef3690a7 (diff)
downloademacs-820c1f5036091d13efecc971b8e01005e07f1504.tar.gz
ispell.el: Make `ispell-dictionary' customizable (#2555)
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/textmodes/ispell.el9
2 files changed, 10 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c469751d6af..b73049a1101 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index c68d69b969e..83fce8a2e21 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -501,6 +501,12 @@ is automatically set when defined in the file with either
(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 @@ used as key in `ispell-local-dictionary-alist' and `ispell-dictionary-alist'.")
"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."