# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1109500598 0
# Node ID e55f542ec767b6a0530978f1bd57742a12e324e9
# Parent  b6fcc94c2d6ae7fe61c544169dfaa9a3f1a31255
(flyspell-mode-on): Call ispell-change-dictionary only if necessary.

diff -r b6fcc94c2d6a -r e55f542ec767 lisp/textmodes/flyspell.el
--- a/lisp/textmodes/flyspell.el	Sun Feb 27 10:35:51 2005 +0000
+++ b/lisp/textmodes/flyspell.el	Sun Feb 27 10:36:38 2005 +0000
@@ -543,8 +543,9 @@
   "Turn Flyspell mode on.  Do not use this; use `flyspell-mode' instead."
   (setq ispell-highlight-face 'flyspell-incorrect-face)
   ;; local dictionaries setup
-  (ispell-change-dictionary
-   (or ispell-local-dictionary ispell-dictionary flyspell-default-dictionary))
+  (or ispell-local-dictionary ispell-dictionary
+      (if flyspell-default-dictionary
+	  (ispell-change-dictionary flyspell-default-dictionary)))
   ;; we have to force ispell to accept the local definition or
   ;; otherwise it could be too late, the local dictionary may
   ;; be forgotten!