diff options
| author | Agustín Martín <agustin.martin@hispalinux.es> | 2011-10-13 20:37:57 +0200 |
|---|---|---|
| committer | Agustín Martín <agustin.martin@hispalinux.es> | 2011-10-13 20:37:57 +0200 |
| commit | 8b7a997c1a891d390b0d3e9483bf9e605fabd11a (patch) | |
| tree | edf777c0fdab6371c1dccafad8c57dabfc3c10f5 /lisp/textmodes/flyspell.el | |
| parent | 50b063c300753307a53328f59c06b547baab6173 (diff) | |
| download | emacs-8b7a997c1a891d390b0d3e9483bf9e605fabd11a.tar.gz | |
flyspell.el (flyspell-large-region): Use extended character mode if defined (Bug#1339).
flyspell-large-region was not setting extended character mode for the
external ispell process. This was affecting ispell with 8bit charsets
not being the default, like in german.
Since extended character mode was not used, process used default 7bit
pseudo-charset resulting in some messages like
-> rterbuch - 68: word not found
about words not found.
This may be related to (Bug#1339).
Diffstat (limited to 'lisp/textmodes/flyspell.el')
| -rw-r--r-- | lisp/textmodes/flyspell.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index c2af3f7be84..d496298768d 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -1559,6 +1559,14 @@ The buffer to mark them in is `flyspell-large-region-buffer'." (list "-p" (expand-file-name ispell-current-personal-dictionary))))) + + ;; Check for extended character mode + (let ((extended-char-mode (ispell-get-extended-character-mode))) + (and extended-char-mode ; ~ extended character mode + (string-match "[^~]+$" extended-char-mode) + (add-to-list 'args (concat "-T" (match-string 0 extended-char-mode))))) + + ;; Add ispell-extra-args (setq args (append args ispell-extra-args)) ;; If we are using recent aspell or hunspell, make sure we use the right encoding |