(ispell-change-dictionary): Ensure that

aspell dictionaries are initialized when called non-interactively.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3df35d9b6bc447d5c5eb19e1a4450dbe4ee41732..a8cd1686c931bd227dd1aedae00b35fda6a733ba 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 241a6670d2d1a53c39f5d11a05d4fa0f1948dea6..26de082eb13e931f37ae2ff6819329ff6f0d93f6 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -2607,6 +2607,7 @@ By just answering RET you can find out what the current dictionary is."
               (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