Fix invocation of Hunspell by ispell.el.

 lisp/textmodes/ispell.el (ispell-check-version): For hunspell, set
 ispell-encoding8-command to "-i", without a trailing space.
 (ispell-start-process): For hunspell, use '("-i" ENCODING), in 2
 separate command-line arguments, to specify the encoding, since
 that's how hunspell expects it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c2597bc0e554cf5d42c6b6d753756ac7aed25b63..b769d60402e75acdaf3b47f761004128d166bd03 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2012-04-08  Eli Zaretskii  <eliz@gnu.org>
+
+       * textmodes/ispell.el (ispell-check-version): For hunspell, set
+       ispell-encoding8-command to "-i", without a trailing space.
+       (ispell-start-process): For hunspell, use '("-i" ENCODING), in 2
+       separate command-line arguments, to specify the encoding, since
+       that's how hunspell expects it.
+
 2012-04-08  Glenn Morris  <rgm@gnu.org>
 
        * loadup.el: Load bindings before cus-start.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 64feaa0aecaefab6cda4cf8cd88af44320a9b045..75e8bd5a87d23289f43c22246471469613803e3b 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -874,7 +874,7 @@ Otherwise returns the library directory name, if that is defined."
            (setq ispell-really-aspell nil)))
         (ispell-really-hunspell
          (if (ispell-check-minver hunspell8-minver ispell-really-hunspell)
-             (setq ispell-encoding8-command "-i ")
+             (setq ispell-encoding8-command "-i")
            (setq ispell-really-hunspell nil))))))
     result))
 
@@ -2618,9 +2618,12 @@ Keeps argument list for future ispell invocations for no async support."
            ;; right encoding for communication. ispell or older aspell/hunspell
            ;; does not support this.
            (if ispell-encoding8-command
-               (list
-                (concat ispell-encoding8-command
-                        (symbol-name (ispell-get-coding-system)))))
+              (if ispell-really-hunspell
+                  (list ispell-encoding8-command
+                        (upcase (symbol-name (ispell-get-coding-system))))
+                (list
+                 (concat ispell-encoding8-command
+                         (symbol-name (ispell-get-coding-system))))))
            ispell-extra-args)))
 
     ;; Initially we don't know any buffer's local words.