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 442053fa12ba9f058838080134f9210723a6e50d..3d691cfac40ca1b7786a6568603f8227c9f25dfe 100644 (file)
--- 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.
+
 \f
 * New Modes and Packages in Emacs 30.1
 

diff --git a/lisp/jsonrpc.el b/lisp/jsonrpc.el
index 77efcf0b590ebae661f8d8fcf69cf754c066f613..4971e13fae3a2e43cdfc62b8f20df40056d6e5d7 100644 (file)
--- 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)
 
 \f
 ;;; Specific to `jsonrpc-process-connection'