mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 02:50:26 -08:00
Code Issues Projects Releases Wiki Activity

Jsonrpc: better initforms in jsonrpc-connection

Browse source 
* lisp/jsonrpc.el (jsonrpc-connection): Better initforms
This commit is contained in:
João Távora 2023-12-09 20:13:39 +00:00
parent 8de749faa1
commit d2f95ea44c
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/jsonrpc.el
View file

@ -51,6 +51,7 @@
(defclass jsonrpc-connection () (defclass jsonrpc-connection ()
((name ((name
:accessor jsonrpc-name :accessor jsonrpc-name
:initform "anonymous"
:initarg :name :initarg :name
:documentation "A name for the connection") :documentation "A name for the connection")
(-request-dispatcher (-request-dispatcher
@ -76,6 +77,7 @@
:accessor jsonrpc--events-buffer :accessor jsonrpc--events-buffer
:documentation "A buffer pretty-printing the JSONRPC events") :documentation "A buffer pretty-printing the JSONRPC events")
(-events-buffer-scrollback-size (-events-buffer-scrollback-size
:initform nil
:initarg :events-buffer-scrollback-size :initarg :events-buffer-scrollback-size
:accessor jsonrpc--events-buffer-scrollback-size :accessor jsonrpc--events-buffer-scrollback-size
:documentation "Max size of events buffer. 0 disables, nil means infinite.") :documentation "Max size of events buffer. 0 disables, nil means infinite.")