[Emacs-diffs] /srv/bzr/emacs/trunk r110533: After saving ispell dictionary, re-enable flyspell if necessary.

[Chong Yidong]

------------------------------------------------------------
revno: 110533
fixes bug: http://debbugs.gnu.org/11963
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2012-10-13 17:51:59 +0800
message:
  After saving ispell dictionary, re-enable flyspell if necessary.
  
  * lisp/textmodes/ispell.el (ispell-pdict-save): If flyspell-mode is
  enabled, re-enable it.
modified:
  lisp/ChangeLog
  lisp/textmodes/ispell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-13 07:58:53 +0000
+++ b/lisp/ChangeLog    2012-10-13 09:51:59 +0000
@@ -1,3 +1,8 @@
+2012-10-13  Chong Yidong  <address@hidden>
+
+       * textmodes/ispell.el (ispell-pdict-save): If flyspell-mode is
+       enabled, re-enable it (Bug#11963).
+
 2012-10-13  Martin Rudalics  <address@hidden>
 
        * emacs-lisp/debug.el (debug): When debugger-will-be-back is

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2012-09-17 05:41:04 +0000
+++ b/lisp/textmodes/ispell.el  2012-10-13 09:51:59 +0000
@@ -1893,11 +1893,14 @@
   (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))