Don't discard line if the protocol-version isn't matched
This commit is contained in:
parent
e65468882b
commit
90bd622f85
|
@ -663,8 +663,9 @@ it is started."
|
||||||
(utop-process-line line)
|
(utop-process-line line)
|
||||||
(progn
|
(progn
|
||||||
(save-match-data
|
(save-match-data
|
||||||
(when (string-match "protocol-version:\\([0-9]+\\)" line)
|
(if (string-match "protocol-version:\\([0-9]+\\)" line)
|
||||||
(setq utop-protocol-version (match-string 1 line))))
|
(setq utop-protocol-version (match-string 1 line))
|
||||||
|
(utop-process-line line)))
|
||||||
(setq utop--read-version t)))
|
(setq utop--read-version t)))
|
||||||
;; Remove it and continue
|
;; Remove it and continue
|
||||||
(setq lines (cdr lines))))
|
(setq lines (cdr lines))))
|
||||||
|
|
Loading…
Reference in New Issue