Commit c5eb1cf3 authored by David Kågedal's avatar David Kågedal
Browse files

* services.el (lyskom-wait-queue): Här skulle man visst också

återställa lyskom-ok-to-send-new-calls.
parent 2e47d63c
Tue Jan 6 06:12:39 1998 David Kgedal <davidk@lysator.liu.se>
* services.el (lyskom-wait-queue): Hr skulle man visst ocks
terstlla lyskom-ok-to-send-new-calls.
Sun Jan 4 01:42:08 1998 David Kgedal <davidk@lysator.liu.se>
* services.el (lyskom-blocking-do-multiple): Anvnd
......
......@@ -1185,9 +1185,12 @@ or get-text-stat."
(process-buffer lyskom-proc)))
(let ((lyskom-blocking-return 'not-yet-gotten))
(lyskom-run queue 'blocking-return (list t))
(while (and (eq lyskom-blocking-return 'not-yet-gotten)
(not lyskom-quit-flag))
(lyskom-accept-process-output))
(unwind-protect
(while (and (eq lyskom-blocking-return 'not-yet-gotten)
(not lyskom-quit-flag))
(lyskom-accept-process-output))
(setq lyskom-ok-to-send-new-calls t)
(lyskom-check-output-queues))
(if (or lyskom-quit-flag quit-flag)
(progn
(lyskom-insert-before-prompt (lyskom-get-string 'interrupted))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment