diff options
| author | Agustín Martín <agustin.martin@hispalinux.es> | 2013-04-15 12:00:14 +0200 |
|---|---|---|
| committer | Agustín Martín <agustin.martin@hispalinux.es> | 2013-04-15 12:00:14 +0200 |
| commit | 0f821d9947d2a10a09dcc58e19e94b66c4c45227 (patch) | |
| tree | a9f71eddcaaf08b3624ce2d0233c28e07bce4140 /lisp | |
| parent | eb922adfdb19296c02fec37559b3374fc7a0b71a (diff) | |
| download | emacs-0f821d9947d2a10a09dcc58e19e94b66c4c45227.tar.gz emacs-0f821d9947d2a10a09dcc58e19e94b66c4c45227.tar.bz2 emacs-0f821d9947d2a10a09dcc58e19e94b66c4c45227.zip | |
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).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 4 |
2 files changed, 9 insertions, 0 deletions
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 <agustin.martin@hispalinux.es> + + * textmodes/ispell.el (ispell-command-loop): Remove + flyspell highlight of a word when ispell accepts it (bug #14178). + 2013-04-15 Michael Albinus <michael.albinus@gmx.de> * 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) |