[Emacs-diffs] /srv/bzr/emacs/trunk r108406: textmodes/ispell.el: Fix variable name. Show spellchecker on process start.

[Agustin Martin]

------------------------------------------------------------
revno: 108406
committer: Agustin Martin <address@hidden>
branch nick: trunk
timestamp: Mon 2012-05-28 16:36:27 +0200
message:
  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.
modified:
  lisp/ChangeLog
  lisp/textmodes/ispell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-05-28 03:42:18 +0000
+++ b/lisp/ChangeLog    2012-05-28 14:36:27 +0000
@@ -1,3 +1,11 @@
+2012-05-28  Agustín Martín Domingo  <address@hidden>
+
+       * 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  <address@hidden>
 
        * progmodes/vhdl-mode.el: Sync with upstream 3.33.28.

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2012-05-18 19:04:07 +0000
+++ b/lisp/textmodes/ispell.el  2012-05-28 14:36:27 +0000
@@ -968,9 +968,9 @@
     ;; 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 @@
        (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)