From 0d11ff1cf2c3af79a9c4e9ef437488b6469fca52 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 13 Oct 2012 17:51:59 +0800 Subject: [PATCH] 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 --- lisp/ChangeLog | 5 +++++ lisp/textmodes/ispell.el | 13 ++++++++----- 2 files changed, 13 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5ac455feb1..d58eb0bfbb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-10-13 Chong Yidong + + * textmodes/ispell.el (ispell-pdict-save): If flyspell-mode is + enabled, re-enable it (Bug#11963). + 2012-10-13 Martin Rudalics * emacs-lisp/debug.el (debug): When debugger-will-be-back is diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 51a4800de5..d591dc5fa8 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)) -- 2.39.2