From 8aeba640460adbad283d4a18f91cce8e0364c40d Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 14 Oct 2019 06:08:19 +0200 Subject: [PATCH] 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 c1b21fdd2eb..be2e192e5af 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 -- 2.39.5