diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/ispell.el | 30 |
1 files 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 |