[Emacs-diffs] /srv/bzr/emacs/trunk r107702: ispell.el (ispell-get-extended-character-mode): Make sure extended-character-mode is nil for hunspell

[Agustin Martin]

------------------------------------------------------------
revno: 107702
committer: Agustin Martin <address@hidden>
branch nick: trunk
timestamp: Fri 2012-03-30 11:45:11 +0200
message:
  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.
modified:
  lisp/ChangeLog
  lisp/textmodes/ispell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-03-30 03:59:52 +0000
+++ b/lisp/ChangeLog    2012-03-30 09:45:11 +0000
@@ -1,3 +1,9 @@
+2012-03-30  Agustín Martín Domingo  <address@hidden>
+
+       * 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  <address@hidden>
 
        * tutorial.el (help-with-tutorial): Ensure local variables don't

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2012-03-28 07:24:26 +0000
+++ b/lisp/textmodes/ispell.el  2012-03-30 09:45:11 +0000
@@ -1334,8 +1334,10 @@
   (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))))