From: Agustín Martín Date: Fri, 30 Mar 2012 09:45:11 +0000 (+0200) Subject: ispell.el (ispell-get-extended-character-mode): Make sure extended-character-mode... X-Git-Tag: emacs-pretest-24.0.05~30 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=935d1290a62946effd560bd6177bd5d9a9d9c82a;p=emacs.git ispell.el (ispell-get-extended-character-mode): Make sure extended-character-mode is nil for hunspell Work around hunspell not ignoring extended-character-mode set from pipe mode by making sure extended-character-mode is nil for hunspell. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fa53caf7ba8..2a528033c9c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2012-03-30 Agustín Martín Domingo + + * ispell.el (ispell-get-extended-character-mode): Disable + extended-char-mode for hunspell. hunspell does not support it and + treats ~word as ordinary words in pipe mode. + 2012-03-30 Glenn Morris * tutorial.el (help-with-tutorial): Ensure local variables don't diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 7df3f8e1ac8..64feaa0aeca 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1334,8 +1334,10 @@ Protects against bogus binding of `enable-multibyte-characters' in XEmacs." (nth 5 (or (assoc ispell-current-dictionary ispell-local-dictionary-alist) (assoc ispell-current-dictionary ispell-dictionary-alist)))) (defun ispell-get-extended-character-mode () - (nth 6 (or (assoc ispell-current-dictionary ispell-local-dictionary-alist) - (assoc ispell-current-dictionary ispell-dictionary-alist)))) + (if ispell-really-hunspell ;; hunspell treats ~word as ordinary words + nil ;; in pipe mode. Disable extended-char-mode + (nth 6 (or (assoc ispell-current-dictionary ispell-local-dictionary-alist) + (assoc ispell-current-dictionary ispell-dictionary-alist))))) (defun ispell-get-coding-system () (nth 7 (or (assoc ispell-current-dictionary ispell-local-dictionary-alist) (assoc ispell-current-dictionary ispell-dictionary-alist))))