mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

ispell.el (ispell-encoding8-command): New variable

Browse source 
(ispell-aspell-supports-utf8): Mark as obsoleted by ispell-encoding8-command
(ispell-check-version): Set ispell-encoding8-command
(ispell-check-spellchecker-params, ispell-start-process): Use
ispell-encoding8-command

flyspell.el (flyspell-large-region): Use ispell-encoding8-command
This commit is contained in:
Agustín Martín 2009-01-08 18:46:23 +00:00
parent ae52547107
commit 57bf8fd484
3 changed files with 41 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/textmodes/flyspell.el
View file

@ -1526,7 +1526,6 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
(or ispell-local-pdict ispell-personal-dictionary))
(let ((args (ispell-get-ispell-args))
(encoding (ispell-get-coding-system))
encoding-command
c)
(if (and ispell-current-dictionary ; use specified dictionary
(not (member "-d" args))) ; only define if not overridden
@ -1542,15 +1541,11 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
;; If we are using recent aspell or hunspell, make sure we use the right encoding
;; for communication. ispell or older aspell/hunspell does not support this
(if (or (and ispell-really-aspell
ispell-aspell-supports-utf8
(setq encoding-command "--encoding="))
(and ispell-really-hunspell
(setq encoding-command "-i ")))
(if ispell-encoding8-command
(setq args
(append args
(list
(concat encoding-command
(concat ispell-encoding8-command
(symbol-name
encoding))))))