mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-21 05:21:37 -07:00
Code Issues Projects Releases Wiki Activity

Tweak ispell-init-process messaging

Browse source 
* lisp/textmodes/ispell.el (ispell-init-process): Output a "done"
after the "starting" message (bug#12828).
This commit is contained in:
Lars Ingebrigtsen 2019-10-14 06:08:19 +02:00
parent f521225736
commit 8aeba64046
1 changed files with 17 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

30
lisp/textmodes/ispell.el
View file

@ -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