diff options
Diffstat (limited to 'lisp/servall-client.el')
| -rw-r--r-- | lisp/servall-client.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/servall-client.el b/lisp/servall-client.el index 2c6dd17..80376e7 100644 --- a/lisp/servall-client.el +++ b/lisp/servall-client.el @@ -40,11 +40,14 @@ (call-interactively 'delete-trailing-whitespace) (if (string= status "200") (unless (= (point) (point-max)) + (setq json (json-read-from-string + (decode-coding-string + (buffer-string) 'utf-8))) (if with-header (list (cons 'header fields) - (cons 'json (json-read))) - (json-read))) + (cons 'json json)) + json)) (error "HTTP error: %s" (buffer-substring (point) (point-max))))))) (provide 'servall-client) |