textmodes/ispell.el: Fix variable name. Show spellchecker on process start.

* (ispell-find-aspell-dictionaries): Check for
  `ispell-dictionary-base-alist' instead of full `ispell-dictionary-alist'.
* (ispell-init-process): Show spellchecker when starting new Ispell process.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a9404dd2779d9e267aa8d5bba6ddc05adad99c74..c95ffe0eb9336e8e666ee7caa661cd534b77dc36 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2012-05-28  Agustín Martín Domingo  <agustin.martin@hispalinux.es>
+
+       * textmodes/ispell.el (ispell-find-aspell-dictionaries):
+       Check for `ispell-dictionary-base-alist' instead of full
+       `ispell-dictionary-alist'.
+       (ispell-init-process): Show spellchecker when starting new Ispell
+       process.
+
 2012-05-28  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * progmodes/vhdl-mode.el: Sync with upstream 3.33.28.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 892f43e09fef094e227f52e8193e29c68a4d6a1a..1dd2c9488baf48b749de242cf230761a0a70dc99 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -968,9 +968,9 @@ Internal use.")
     ;; Ensure aspell's alias dictionary will override standard
     ;; definitions.
     (setq found (ispell-aspell-add-aliases found))
-    ;; Merge into FOUND any elements from the standard ispell-dictionary-alist
+    ;; Merge into FOUND any elements from the standard ispell-dictionary-base-alist
     ;; which have no element in FOUND at all.
-    (dolist (dict ispell-dictionary-alist)
+    (dolist (dict ispell-dictionary-base-alist)
       (unless (assoc (car dict) found)
        (setq found (nconc found (list dict)))))
     (setq ispell-aspell-dictionary-alist found)
@@ -2707,7 +2707,8 @@ Keeps argument list for future Ispell invocations for no async support."
        (setq ispell-filter nil ispell-filter-continue nil)
       ;; may need to restart to select new personal dictionary.
       (ispell-kill-ispell t)
-      (message "Starting new Ispell process [%s] ..."
+      (message "Starting new Ispell process [%s::%s] ..."
+              ispell-program-name
               (or ispell-local-dictionary ispell-dictionary "default"))
       (sit-for 0)
       (setq ispell-library-directory (ispell-check-version)