[Emacs-diffs] /srv/bzr/emacs/emacs-24 r107878: textmodes/flyspell.el (flyspell-large-region): Specify encoding for hunspell with ("-i" ENCODING).

[Agustin Martin]

------------------------------------------------------------
revno: 107878
committer: Agustin Martin <address@hidden>
branch nick: trunk
timestamp: Thu 2012-04-12 16:19:40 +0200
message:
  textmodes/flyspell.el (flyspell-large-region): Specify encoding for hunspell 
with ("-i" ENCODING).
  
  As done for ispell in in r107799, 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.
modified:
  lisp/ChangeLog
  lisp/textmodes/flyspell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-12 02:04:29 +0000
+++ b/lisp/ChangeLog    2012-04-12 14:19:40 +0000
@@ -1,3 +1,9 @@
+2012-04-12  Agustín Martín Domingo  <address@hidden>
+
+       * 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  <address@hidden>
 
        * battery.el (battery--linux-sysfs-regexp): New const.

=== modified file 'lisp/textmodes/flyspell.el'
--- a/lisp/textmodes/flyspell.el        2012-04-09 13:05:48 +0000
+++ b/lisp/textmodes/flyspell.el        2012-04-12 14:19:40 +0000
@@ -1576,10 +1576,11 @@
       (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