[Emacs-diffs] master 8aeba64: Tweak ispell-init-process messaging

[Lars Ingebrigtsen]

branch: master
commit 8aeba640460adbad283d4a18f91cce8e0364c40d
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Tweak ispell-init-process messaging
    
    * lisp/textmodes/ispell.el (ispell-init-process): Output a "done"
    after the "starting" message (bug#12828).
---
 lisp/textmodes/ispell.el | 30 +++++++++++++++++-------------
 1 file changed, 17 insertions(+), 13 deletions(-)

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index c1b21fd..be2e192 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -2876,19 +2876,23 @@ 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 with %s dictionary..."
-              ispell-program-name
-              (or ispell-local-dictionary ispell-dictionary "default"))
-      (sit-for 0)
-      (setq ispell-library-directory (ispell-check-version)
-            ;; Assign a non-nil value to ispell-process-directory
-            ;; before calling ispell-start-process, since that
-            ;; function needs it to set default-directory when
-            ;; ispell-async-processp is nil.
-           ispell-process-directory default-directory
-           ispell-process (ispell-start-process)
-           ispell-filter nil
-           ispell-filter-continue nil)
+      (let ((reporter
+             (make-progress-reporter
+              (format "Starting new Ispell process %s with %s dictionary..."
+                     ispell-program-name
+                     (or ispell-local-dictionary ispell-dictionary
+                          "default")))))
+        (sit-for 0)
+        (setq ispell-library-directory (ispell-check-version)
+              ;; Assign a non-nil value to ispell-process-directory
+              ;; before calling ispell-start-process, since that
+              ;; function needs it to set default-directory when
+              ;; ispell-async-processp is nil.
+             ispell-process-directory default-directory
+             ispell-process (ispell-start-process)
+             ispell-filter nil
+             ispell-filter-continue nil)
+        (progress-reporter-done reporter))
 
       (unless (equal ispell-process-directory (expand-file-name "~/"))
        ;; At this point, `ispell-process-directory' will be "~/" unless using