[Emacs-diffs] emacs/lisp ChangeLog textmodes/ispell.el

[Agustin Martin Domingo]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Agustin Martin Domingo <agmartin>       09/06/09 13:21:51

Modified files:
        lisp           : ChangeLog 
        lisp/textmodes : ispell.el 

Log message:
        ispell.el:  Make `ispell-dictionary' customizable (#2555)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15674&r2=1.15675
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/ispell.el?cvsroot=emacs&r1=1.249&r2=1.250

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15674
retrieving revision 1.15675
diff -u -b -r1.15674 -r1.15675
--- ChangeLog   8 Jun 2009 15:04:47 -0000       1.15674
+++ ChangeLog   9 Jun 2009 13:21:34 -0000       1.15675
@@ -1,3 +1,7 @@
+2009-06-09  Agustín Martín <address@hidden>
+
+       * ispell.el: Make `ispell-dictionary' customizable (#2555)
+
 2009-06-08  Michael Albinus  <address@hidden>
 
        * ediff-util.el (ediff-compute-custom-diffs-maybe): Handle remote

Index: textmodes/ispell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.249
retrieving revision 1.250
diff -u -b -r1.249 -r1.250
--- textmodes/ispell.el 24 May 2009 23:26:37 -0000      1.249
+++ textmodes/ispell.el 9 Jun 2009 13:21:51 -0000       1.250
@@ -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."