From 935d1290a62946effd560bd6177bd5d9a9d9c82a Mon Sep 17 00:00:00 2001 From: =?utf8?q?Agust=C3=ADn=20Mart=C3=ADn?= Date: Fri, 30 Mar 2012 11:45:11 +0200 Subject: [PATCH] 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. --- lisp/ChangeLog | 6 ++++++ lisp/textmodes/ispell.el | 6 ++++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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)))) -- 2.39.2