diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-10-13 17:51:59 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-10-13 17:51:59 +0800 |
| commit | 0d11ff1cf2c3af79a9c4e9ef437488b6469fca52 (patch) | |
| tree | 5f984efc4f056a11e0071c3a08582ad64b1a86e2 | |
| parent | b1367cba38b88b64530f40b1935b38a8c08f2fd6 (diff) | |
| download | emacs-0d11ff1cf2c3af79a9c4e9ef437488b6469fca52.tar.gz | |
After saving ispell dictionary, re-enable flyspell if necessary.
* lisp/textmodes/ispell.el (ispell-pdict-save): If flyspell-mode is
enabled, re-enable it.
Fixes: debbugs:11963
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 13 |
2 files changed, 13 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5ac455feb13..d58eb0bfbbf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-10-13 Chong Yidong <cyd@gnu.org> + + * textmodes/ispell.el (ispell-pdict-save): If flyspell-mode is + enabled, re-enable it (Bug#11963). + 2012-10-13 Martin Rudalics <rudalics@gmx.at> * emacs-lisp/debug.el (debug): When debugger-will-be-back is diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 51a4800de52..d591dc5fa85 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1893,11 +1893,14 @@ If so, ask if it needs to be saved." (interactive (list ispell-silently-savep t)) (if (and ispell-pdict-modified-p (listp ispell-pdict-modified-p)) (setq ispell-pdict-modified-p (car ispell-pdict-modified-p))) - (if (or ispell-pdict-modified-p force-save) - (if (or no-query (y-or-n-p "Personal dictionary modified. Save? ")) - (progn - (ispell-send-string "#\n") ; save dictionary - (message "Personal dictionary saved.")))) + (when (and (or ispell-pdict-modified-p force-save) + (or no-query + (y-or-n-p "Personal dictionary modified. Save? "))) + (ispell-send-string "#\n") ; save dictionary + (message "Personal dictionary saved.") + (when flyspell-mode + (flyspell-mode 0) + (flyspell-mode 1))) ;; unassert variable, even if not saved to avoid questioning. (setq ispell-pdict-modified-p nil)) |