aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/textmodes
diff options
context:
space:
mode:
authorEli Zaretskii2012-04-08 20:09:03 +0300
committerEli Zaretskii2012-04-08 20:09:03 +0300
commitb39bb7e124f984a8fe7f05cce4a7f0d92d22e380 (patch)
treef2f57f616c4d2e9fc7c2c1083113777d8904c8b7 /lisp/textmodes
parent3b747a14c7822b70003659b522b91f6e5419e929 (diff)
downloademacs-b39bb7e124f984a8fe7f05cce4a7f0d92d22e380.tar.gz
emacs-b39bb7e124f984a8fe7f05cce4a7f0d92d22e380.zip
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.
Diffstat (limited to 'lisp/textmodes')
-rw-r--r--lisp/textmodes/ispell.el11
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 64feaa0aeca..75e8bd5a87d 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -874,7 +874,7 @@ Otherwise returns the library directory name, if that is defined."
874 (setq ispell-really-aspell nil))) 874 (setq ispell-really-aspell nil)))
875 (ispell-really-hunspell 875 (ispell-really-hunspell
876 (if (ispell-check-minver hunspell8-minver ispell-really-hunspell) 876 (if (ispell-check-minver hunspell8-minver ispell-really-hunspell)
877 (setq ispell-encoding8-command "-i ") 877 (setq ispell-encoding8-command "-i")
878 (setq ispell-really-hunspell nil)))))) 878 (setq ispell-really-hunspell nil))))))
879 result)) 879 result))
880 880
@@ -2618,9 +2618,12 @@ Keeps argument list for future ispell invocations for no async support."
2618 ;; right encoding for communication. ispell or older aspell/hunspell 2618 ;; right encoding for communication. ispell or older aspell/hunspell
2619 ;; does not support this. 2619 ;; does not support this.
2620 (if ispell-encoding8-command 2620 (if ispell-encoding8-command
2621 (list 2621 (if ispell-really-hunspell
2622 (concat ispell-encoding8-command 2622 (list ispell-encoding8-command
2623 (symbol-name (ispell-get-coding-system))))) 2623 (upcase (symbol-name (ispell-get-coding-system))))
2624 (list
2625 (concat ispell-encoding8-command
2626 (symbol-name (ispell-get-coding-system))))))
2624 ispell-extra-args))) 2627 ispell-extra-args)))
2625 2628
2626 ;; Initially we don't know any buffer's local words. 2629 ;; Initially we don't know any buffer's local words.