From: Agustín Martín Date: Mon, 15 Apr 2013 10:00:14 +0000 (+0200) Subject: ispell.el: No longer mark as wrong-by-flyspell words just accepted by ispell (bug... X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~463 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0f821d9947d2a10a09dcc58e19e94b66c4c45227;p=emacs.git 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). --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f3db36db290..2231d96a757 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-03-15 Agustín Martín Domingo + + * textmodes/ispell.el (ispell-command-loop): Remove + flyspell highlight of a word when ispell accepts it (bug #14178). + 2013-04-15 Michael Albinus * net/ange-ftp.el (ange-ftp-run-real-handler-orig): New defun, diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index a56554f5b66..06c3cc68664 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -2329,10 +2329,14 @@ Global `ispell-quit' set to start location to continue spell session." ((= 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)