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 13510eef805b0347da076b548c94087d2417151f..950c4ca33fa43e1005a78ab26842403fb33c4a12 100644 (file)
--- 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))))