bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#58948: 29.0.50; Add :noquery to 'make-network-process' used by eglot


From: Juri Linkov
Subject: bug#58948: 29.0.50; Add :noquery to 'make-network-process' used by eglot
Date: Tue, 01 Nov 2022 19:45:42 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (x86_64-pc-linux-gnu)

Tags: patch

Every time while exiting Emacs, an internal process is displayed and
asked whether to exit.

Eglot already uses `:noquery t' in two places for `make-process',
but can't use the same for `open-network-stream' because it's still unhandled.
Here is the patch that adds it:

diff --git a/lisp/net/network-stream.el b/lisp/net/network-stream.el
index 38a5e14c946..c092fd5f012 100644
--- a/lisp/net/network-stream.el
+++ b/lisp/net/network-stream.el
@@ -195,6 +195,7 @@ open-network-stream
        (make-network-process :name name :buffer buffer
                              :host (puny-encode-domain host) :service service
                              :nowait (plist-get parameters :nowait)
+                             :noquery (plist-get parameters :noquery)
                               :tls-parameters
                               (plist-get parameters :tls-parameters)
                               :coding (plist-get parameters :coding))
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 0a0d73eb6d2..204121045a0 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -1200,7 +1200,8 @@ eglot--connect
                                (pcase-let ((`(,connection . ,inferior)
                                             (eglot--inferior-bootstrap
                                              readable-name
-                                             contact)))
+                                             contact
+                                             '(:noquery t))))
                                  (setq autostart-inferior-process inferior)
                                  connection))))
                 ((stringp (car contact))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]