From: João Távora <joaotavora@gmail.com>
Date: Sat, 9 Dec 2023 20:13:39 +0000 (+0000)
Subject: Jsonrpc: better initforms in jsonrpc-connection
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d2f95ea44c8ea408f5c11d89e40982376ae268cc;p=emacs.git

Jsonrpc: better initforms in jsonrpc-connection

* lisp/jsonrpc.el (jsonrpc-connection): Better initforms
---

diff --git a/lisp/jsonrpc.el b/lisp/jsonrpc.el
index f7ccc8d2745..67243fd49e3 100644
--- a/lisp/jsonrpc.el
+++ b/lisp/jsonrpc.el
@@ -51,6 +51,7 @@
 (defclass jsonrpc-connection ()
   ((name
     :accessor jsonrpc-name
+    :initform "anonymous"
     :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.")