From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 23 Nov 2024 20:14:57 +0000 (+0200)
Subject: Make 'jsonrpc-default-request-timeout' a defcustom
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~249
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=d9531793206021f1ad842cbc73df939aadf5f745;p=emacs.git

Make 'jsonrpc-default-request-timeout' a defcustom

* lisp/jsonrpc.el (jsonrpc-default-request-timeout): New
defcustom, replaces a defconst.
(jsonrpc): New customization group.

* etc/NEWS: Announce the change.  (Bug#74338)
---

diff --git a/etc/NEWS b/etc/NEWS
index 442053fa12b..3d691cfac40 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -2133,6 +2133,9 @@ The command 'makefile-switch-to-browser' command is now obsolete,
 together with related commands used in the "*Macros and Targets*"
 buffer.  We recommend using an alternative like 'imenu' instead.
 
+---
+*** 'jsonrpc-default-request-timeout' is now a defcustom.
+
 
 * New Modes and Packages in Emacs 30.1
 
diff --git a/lisp/jsonrpc.el b/lisp/jsonrpc.el
index 77efcf0b590..4971e13fae3 100644
--- a/lisp/jsonrpc.el
+++ b/lisp/jsonrpc.el
@@ -466,8 +466,17 @@ ignored."
 (define-obsolete-variable-alias 'jrpc-default-request-timeout
   'jsonrpc-default-request-timeout "28.1")
 
-(defconst jsonrpc-default-request-timeout 10
-  "Time in seconds before timing out a JSONRPC request.")
+(defgroup jsonrpc nil
+  "JSON-RPC customization."
+  :prefix "jsonrpc-"
+  :group 'comm)
+
+(defcustom jsonrpc-default-request-timeout 10
+  "Time in seconds before timing out a JSON-RPC request without response."
+  :version "30.1"
+  :type 'number
+  :safe 'numberp
+  :group 'jsonrpc)
 
 
 ;;; Specific to `jsonrpc-process-connection'