(ispell-local-dictionary-alist): Accept as valid any coding-system

supported by emacs.
(ispell-dictionary-alist-3): Esperanto dictionary's coding system
changed to iso-8859-3.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5e7498c0aa960b11f5902a0c6f9c9206d8d2a679..4b5bb05331ce3df9e698e30c2359b1b2d5f32c13 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -116,9 +116,13 @@
 
 2006-02-17  Agustin Martin  <agustin.martin@hispalinux.es>
 
-       * textmodes/ispell.el (ispell-change-dictionary):  Call
+       * textmodes/ispell.el (ispell-change-dictionary): Call
        ispell-buffer-local-dict instead of
        ispell-accept-buffer-local-defs.
+       (ispell-local-dictionary-alist): Accept as valid any coding-system
+       supported by emacs.
+       (ispell-dictionary-alist-3): Esperanto dictionary's coding system
+       changed to iso-8859-3.
 
 2006-02-17  Nick Roberts  <nickrob@snap.net.nz>
 

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index ea112d6d87754d8a9a0ca07b445db49c7181110a..b78ec1a8a92088fd5d6a5b34069b41f25c960937 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -508,11 +508,7 @@ re-start emacs."
                               (const "~nroff") (const "~list")
                               (const "~latin1") (const "~latin3")
                               (const :tag "default" nil))
-                      (choice :tag "Coding system"
-                              (const iso-8859-1)
-                              (const iso-8859-2)
-                              (const koi8-r)
-                              (const windows-1251))))
+                      (coding-system :tag "Coding System")))
   :group 'ispell)
 
 
@@ -570,10 +566,10 @@ re-start emacs."
  '(("esperanto"
     "[A-Za-z\246\254\266\274\306\330\335\336\346\370\375\376]"
     "[^A-Za-z\246\254\266\274\306\330\335\336\346\370\375\376]"
-    "[-']" t ("-C") "~latin3" iso-8859-1)
+    "[-']" t ("-C") "~latin3" iso-8859-3)
    ("esperanto-tex"
     "[A-Za-z^\\]" "[^A-Za-z^\\]"
-    "[-'`\"]" t ("-C" "-d" "esperanto") "~tex" iso-8859-1)
+    "[-'`\"]" t ("-C" "-d" "esperanto") "~tex" iso-8859-3)
    ("francais7"
     "[A-Za-z]" "[^A-Za-z]" "[`'^---]" t nil nil iso-8859-1)
    ("francais"                         ; Francais.aff