# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1196619428 0
# Node ID 583c3d4f0b79782414b532d519734a3d49ab4398
# Parent  a90136f4f90879ca28a50c4abd80d53ec50dccc6
Agustin Martin  <agustin.martin at hispalinux.es>

(ispell-aspell-find-dictionary): Do not set encoding here.
(ispell-start-process): Explicitly set encoding here if using aspell.

diff -r a90136f4f908 -r 583c3d4f0b79 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Sun Dec 02 18:05:57 2007 +0000
+++ b/lisp/textmodes/ispell.el	Sun Dec 02 18:17:08 2007 +0000
@@ -981,7 +981,7 @@
 		"[^[:alpha:]]"
 		(regexp-opt otherchars)
 		t			     ; We can't tell, so set this to t
-		(list "-d" dict-name "--encoding=utf-8")
+		(list "-d" dict-name)
 		nil				; aspell doesn't support this
 		;; Here we specify the encoding to use while communicating with
 		;; aspell.  This doesn't apply to command line arguments, so
@@ -2511,6 +2511,13 @@
 	      (append args
 		      (list "-p"
 			    (expand-file-name ispell-current-personal-dictionary)))))
+    (if (and ispell-really-aspell
+	     ispell-aspell-supports-utf8)
+	(setq args
+	      (append args
+		      (list
+		       (concat "--encoding="
+			       (symbol-name (ispell-get-coding-system)))))))
     (setq args (append args ispell-extra-args))
 
     ;; Initially we don't know any buffer's local words.