fix spell checker encoding

2012-10-14 18:45:10 -05:00 · 2012-10-14 18:45:10 -05:00 · c75cc48f5c
commit c75cc48f5c
parent 72fa1d45a1
1 changed files with 2 additions and 2 deletions
--- a/collects/framework/private/aspell.rkt
+++ b/collects/framework/private/aspell.rkt
@ -33,9 +33,9 @@
                                            c1)
                                       (and (file-exists? c2)
                                            c2)))))
-                 
+                 (define aspell? (regexp-match? #rx"aspell" (path->string asp)))
                 (when asp
-                   (set! aspell-proc (process* asp "-a"))
+                   (set! aspell-proc (apply process* asp "-a" (if aspell? '("--encoding=utf-8") '())))
                   (define line (read-line (list-ref aspell-proc 0)))
                   (log-info (format "framework: started speller: ~a" line))