diff options
| author | Agustín Martín <agustin.martin@hispalinux.es> | 2012-03-30 11:45:11 +0200 |
|---|---|---|
| committer | Agustín Martín <agustin.martin@hispalinux.es> | 2012-03-30 11:45:11 +0200 |
| commit | 935d1290a62946effd560bd6177bd5d9a9d9c82a (patch) | |
| tree | f85bef66c7bec44880f797bb52f3efd8752c293b | |
| parent | 65a0a738476acb1a7103602ee3e6c041108b6c91 (diff) | |
| download | emacs-935d1290a62946effd560bd6177bd5d9a9d9c82a.tar.gz | |
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.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | 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 <agustin.martin@hispalinux.es> + + * 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 <rgm@gnu.org> * 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)))) |