textmodes/flyspell.el (flyspell-large-region): Specify encoding for hunspell with...

As done for ispell in in 2012-04-08T17:09:03Z!eliz@gnu.org, in flyspell-large-region we also need
to specify encoding for hunspell with ("-i" ENCODING), in 2 separate
command-line arguments, as expected by hunspell.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d4217ba111259871e361a3717a3396dc5c1c0dd5..1f6b7d3dfaf2c454e6146546319661d88ec23d6a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-04-12  Agustín Martín Domingo  <agustin.martin@hispalinux.es>
+
+       * textmodes/flyspell.el (flyspell-large-region): For hunspell, use
+       '("-i" ENCODING), in 2 separate command-line arguments, to specify
+       the encoding, as expected by hunspell.
+
 2012-04-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * battery.el (battery--linux-sysfs-regexp): New const.

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 24967ded154cba89d59065a8c9e634b2006e31f6..72a3eb474f8cc360e11e3529ebf07f702a94fe50 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1576,10 +1576,11 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
       (if ispell-encoding8-command
          (setq args
                (append args
-                       (list
-                        (concat ispell-encoding8-command
-                                (symbol-name
-                                 encoding))))))
+                       (if ispell-really-hunspell
+                           (list ispell-encoding8-command
+                                 (upcase (symbol-name encoding)))
+                         (list (concat ispell-encoding8-command
+                                       (symbol-name encoding)))))))
 
       (let ((process-coding-system-alist (list (cons "\\.*" encoding))))
        (setq c (apply 'ispell-call-process-region beg