From 0f821d9947d2a10a09dcc58e19e94b66c4c45227 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Agust=C3=ADn=20Mart=C3=ADn?= Date: Mon, 15 Apr 2013 12:00:14 +0200 Subject: [PATCH] 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). --- lisp/ChangeLog | 5 +++++ lisp/textmodes/ispell.el | 4 ++++ 2 files changed, 9 insertions(+) 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) -- 2.39.2