[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r106081: flyspell.el (flyspell-large-
From: |
Agustin Martin |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r106081: flyspell.el (flyspell-large-region): Use extended character mode if defined (Bug#1339). |
Date: |
Thu, 13 Oct 2011 20:37:57 +0200 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 106081
committer: Agustin Martin <address@hidden>
branch nick: trunk
timestamp: Thu 2011-10-13 20:37:57 +0200
message:
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).
modified:
lisp/ChangeLog
lisp/textmodes/flyspell.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-10-13 12:01:59 +0000
+++ b/lisp/ChangeLog 2011-10-13 18:37:57 +0000
@@ -1,3 +1,8 @@
+2011-10-13 Agustín Martín Domingo <address@hidden>
+
+ * textmodes/flyspell.el (flyspell-large-region): Make sure
+ extended character mode is used if defined (Bug#1339).
+
2011-10-13 Eli Zaretskii <address@hidden>
* simple.el (what-cursor-position): Fix the display of the
=== modified file 'lisp/textmodes/flyspell.el'
--- a/lisp/textmodes/flyspell.el 2011-10-12 02:48:40 +0000
+++ b/lisp/textmodes/flyspell.el 2011-10-13 18:37:57 +0000
@@ -1559,6 +1559,14 @@
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r106081: flyspell.el (flyspell-large-region): Use extended character mode if defined (Bug#1339).,
Agustin Martin <=