haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Don't discard line if the protocol-version isn't matched

This commit is contained in:
Rudi Grinberg 2018-02-28 16:59:04 +07:00
parent e65468882b
commit 90bd622f85
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/top/utop.el
View File

@ -663,8 +663,9 @@ it is started."
(utop-process-line line)
(progn
(save-match-data
(when (string-match "protocol-version:\\([0-9]+\\)" line)
(setq utop-protocol-version (match-string 1 line))))
(if (string-match "protocol-version:\\([0-9]+\\)" line)
(setq utop-protocol-version (match-string 1 line))
(utop-process-line line)))
(setq utop--read-version t)))
;; Remove it and continue
(setq lines (cdr lines))))