feature/jsonrpc-support-dap 67da6e5853f 2/4: Jsonrpc: Better initforms in jsonrpc-connection

[João Távora]

branch: feature/jsonrpc-support-dap
commit 67da6e5853fe9d745df3afc1f773ab16f07a4eeb
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Jsonrpc: Better initforms in jsonrpc-connection
    
    * lisp/jsonrpc.el (jsonrpc-connection): Better initforms
---
 lisp/jsonrpc.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lisp/jsonrpc.el b/lisp/jsonrpc.el
index 2036e135f52..f658522b487 100644
--- a/lisp/jsonrpc.el
+++ b/lisp/jsonrpc.el
@@ -51,6 +51,7 @@
 (defclass jsonrpc-connection ()
   ((name
     :accessor jsonrpc-name
+    :initform (error "`name' is required!")
     :initarg :name
     :documentation "A name for the connection")
    (-request-dispatcher
@@ -76,6 +77,7 @@
     :accessor jsonrpc--events-buffer
     :documentation "A buffer pretty-printing the JSONRPC events")
    (-events-buffer-scrollback-size
+    :initform nil
     :initarg :events-buffer-scrollback-size
     :accessor jsonrpc--events-buffer-scrollback-size
     :documentation "Max size of events buffer.  0 disables, nil means 
infinite.")