[Emacs-diffs] /srv/bzr/emacs/trunk r112292: ispell.el: No longer mark as wrong-by-flyspell words just accepted by ispell (bug #14178).

[Agustin Martin]

------------------------------------------------------------
revno: 112292
fixes bug: http://debbugs.gnu.org/14178
committer: Agustin Martin <address@hidden>
branch nick: trunk
timestamp: Mon 2013-04-15 12:00:14 +0200
message:
  ispell.el: No longer mark as wrong-by-flyspell words just accepted by ispell 
(bug #14178).
  
  textmodes/ispell.el (ispell-command-loop): Remove flyspell highlighting 
  of a word when ispell accepts it (bug #14178).
modified:
  lisp/ChangeLog
  lisp/textmodes/ispell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-04-15 09:43:20 +0000
+++ b/lisp/ChangeLog    2013-04-15 10:00:14 +0000
@@ -1,3 +1,8 @@
+2013-03-15  Agustín Martín Domingo  <address@hidden>
+
+       * textmodes/ispell.el (ispell-command-loop): Remove
+       flyspell highlight of a word when ispell accepts it (bug #14178).
+
 2013-04-15  Michael Albinus  <address@hidden>
 
        * net/ange-ftp.el (ange-ftp-run-real-handler-orig): New defun,

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2013-04-05 15:43:07 +0000
+++ b/lisp/textmodes/ispell.el  2013-04-15 10:00:14 +0000
@@ -2329,10 +2329,14 @@
                   ((= char ?i)         ; accept and insert word into pers dict
                    (ispell-send-string (concat "*" word "\n"))
                    (setq ispell-pdict-modified-p '(t)) ; dictionary modified!
+                   (and (fboundp 'flyspell-unhighlight-at)
+                        (flyspell-unhighlight-at start))
                    nil)
                   ((or (= char ?a) (= char ?A)) ; accept word without insert
                    (ispell-send-string (concat "@" word "\n"))
                    (add-to-list 'ispell-buffer-session-localwords word)
+                   (and (fboundp 'flyspell-unhighlight-at)
+                        (flyspell-unhighlight-at start))
                    (or ispell-buffer-local-name ; session localwords might 
conflict
                        (setq ispell-buffer-local-name (buffer-name)))
                    (if (null ispell-pdict-modified-p)