From: João Távora <joaotavora@gmail.com>
Date: Mon, 3 Dec 2018 11:24:25 +0000 (+0000)
Subject: Prevent accept-process-output with quit inhibited in octave.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1ad08262b1f46310c81e04913f90ea39766e1170;p=emacs.git

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

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