[Emacs-diffs] scratch/octave-eldoc-fixes 1ad0826 1/2: Prevent accept-process-output with quit inhibited in octave.el

[João Távora]

branch: scratch/octave-eldoc-fixes
commit 1ad08262b1f46310c81e04913f90ea39766e1170
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>

    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 13510ee..950c4ca 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))))