From 1ad08262b1f46310c81e04913f90ea39766e1170 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Mon, 3 Dec 2018 11:24:25 +0000 Subject: [PATCH] Prevent accept-process-output with quit inhibited in octave.el * lisp/progmodes/octave.el (inferior-octave-send-list-and-digest): accept-process-output within with-local-quit. --- lisp/progmodes/octave.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el index 13510eef805..950c4ca33fa 100644 --- a/lisp/progmodes/octave.el +++ b/lisp/progmodes/octave.el @@ -960,8 +960,9 @@ output is passed to the filter `inferior-octave-output-digest'." (setq inferior-octave-output-string nil inferior-octave-receive-in-progress t) (comint-send-string proc string) - (while inferior-octave-receive-in-progress - (accept-process-output proc)) + (while (and inferior-octave-receive-in-progress + (with-local-quit + (accept-process-output proc)))) (setq list (cdr list))) (set-process-filter proc filter)))) -- 2.39.5