# HG changeset patch
# User Reiner Steib <Reiner.Steib@gmx.de>
# Date 1169227333 0
# Node ID a884e6b92a3ef423b08e4f5a7344587b8e3f537d
# Parent  2eb7060c5458eafc9e7784f11231b4ac2f730a05
(ispell-change-dictionary): Ensure that
aspell dictionaries are initialized when called non-interactively.

diff -r 2eb7060c5458 -r a884e6b92a3e lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jan 19 11:35:16 2007 +0000
+++ b/lisp/ChangeLog	Fri Jan 19 17:22:13 2007 +0000
@@ -1,3 +1,8 @@
+2007-01-19  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* textmodes/ispell.el (ispell-change-dictionary): Ensure that
+	aspell dictionaries are initialized when called non-interactively.
+
 2007-01-19  Chong Yidong  <cyd@stupidchicken.com>
 
 	* progmodes/compile.el (compilation-loop): New arg limit.  Handle
diff -r 2eb7060c5458 -r a884e6b92a3e lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Fri Jan 19 11:35:16 2007 +0000
+++ b/lisp/textmodes/ispell.el	Fri Jan 19 17:22:13 2007 +0000
@@ -2607,6 +2607,7 @@
 	       (mapcar 'list (ispell-valid-dictionary-list)))
 	  nil t)
 	 current-prefix-arg))
+  (ispell-maybe-find-aspell-dictionaries)
   (unless arg (ispell-buffer-local-dict 'no-reload))
   (if (equal dict "default") (setq dict nil))
   ;; This relies on completing-read's bug of returning "" for no match