mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

Fix error handling in 'ispell-init-process'

Browse Source 
* lisp/textmodes/ispell.el (ispell-init-process): When Ispell
initialization reports an error, call 'ispell-accept-output' only
if the Ispell process is still alive.  (Bug#50370)

Copyright-paperwork-exempt: yes
This commit is contained in:
Ian W 2021-09-03 20:53:24 -07:00 committed by Eli Zaretskii
parent e6f936eb4d
commit ba84ec8bd9
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/textmodes/ispell.el
View File

@ -2923,7 +2923,14 @@ Keeps argument list for future Ispell invocations for no async support."
;; But first wait to see if some more output is going to arrive.
;; Otherwise we get cool errors like "Can't open ".
(sleep-for 1)
(ispell-accept-output 3)
;; Only call `ispell-accept-output' if the Ispell process
;; is alive, to avoid showing an unhelpful error message
;; about a missing process, instead of the error which
;; reports why the Ispell process died.
(when (if ispell-async-processp
(process-live-p ispell-process)
ispell-process)
(ispell-accept-output 3))
(error "%s" (mapconcat #'identity ispell-filter "\n"))))
(setq ispell-filter nil) ; Discard version ID line
(let ((extended-char-mode (ispell-get-extended-character-mode)))