max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

fix(emacs/lean-server): recognize error messages

Browse source
This commit is contained in:
Gabriel Ebner 2016-10-21 16:02:13 -04:00 • committed by Leonardo de Moura
parent 47e6fd091f
commit 3833a60b7c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/emacs/lean-server.el
View file

@ -88,8 +88,8 @@
(lean-debug "server=> %s" answer)
(let* ((json-object-type 'plist)
(response (json-read-from-string answer)))
(if (equal (plist-get 'response response) "error")
(progn (message "error: %s" (plist-get 'message response))
(if (equal (plist-get response :response) "error")
(progn (message "error: %s" (plist-get response :message))
(if error-cb (apply error-cb :allow-other-keys t response)))
(if cb (apply cb :allow-other-keys t response))))))))