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

Gjorde visst saker i fel ordning i blocking-do.

parent 94f4c4da
......@@ -281,7 +281,7 @@ most lyskom-max-pending-calls are sent to the server at the same time."
(if window-system
(progn
(when (not (frame-live-p lyskom-prof-frame))
(setq lyskom-prof-frame (make-frame '((height . 25)))))
(setq lyskom-prof-frame (make-frame '((height . 27)))))
(select-frame lyskom-prof-frame)
(display-buffer lyskom-prof-buffer)
(goto-char 0))
......
......@@ -1152,15 +1152,15 @@ or get-text-stat."
(lyskom-really-serious-bug))
(let ((lyskom-blocking-return 'not-yet-gotten))
;; This should not be necessary, but for robustness sake...
;; There are occasions when it is needed.
(setq lyskom-ok-to-send-new-calls t)
(apply (intern-soft (concat "initiate-"
(symbol-name command)))
'blocking 'blocking-return
data)
;; This should not be necessary, but for robustness sake...
;; There are occasions when it is needed.
(setq lyskom-ok-to-send-new-calls t)
(while (and (eq lyskom-blocking-return 'not-yet-gotten)
(memq (process-status lyskom-proc) '(open run))
;; The following test should probably be removed
......
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