mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

flyspell.el (flyspell-large-region): Use extended character mode if defined (Bug#1339).

Browse Source 
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).
This commit is contained in:
Agustín Martín 2011-10-13 20:37:57 +02:00
parent 50b063c300
commit 8b7a997c1a
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2011-10-13 Agustín Martín Domingo <agustin.martin@hispalinux.es>
* textmodes/flyspell.el (flyspell-large-region): Make sure
extended character mode is used if defined (Bug#1339).
2011-10-13 Eli Zaretskii <eliz@gnu.org>
* simple.el (what-cursor-position): Fix the display of the

8
lisp/textmodes/flyspell.el
View File

@ -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