Add the parameter :noquery to open-network-stream (bug#58948)

* doc/lispref/processes.texi (Network): Add :noquery for open-network-stream.

* lisp/net/network-stream.el (open-network-stream): Pass the
parameter :noquery to make-network-process.  Doc fix.

* lisp/progmodes/eglot.el (eglot--connect): Pass `:noquery t' to
eglot--inferior-bootstrap to use in open-network-stream call, like
`:noquery t' is passed to make-process in other places.
This commit is contained in:
Juri Linkov 2022-11-02 20:22:10 +02:00
parent 62d40f27b2
commit 969d71d11c
3 changed files with 10 additions and 1 deletions

View file

@ -2585,6 +2585,10 @@ that are mainly relevant to encrypted connections:
@item :nowait @var{boolean}
If non-@code{nil}, try to make an asynchronous connection.
@item :noquery @var{query-flag}
Initialize the process query flag to @var{query-flag}.
@xref{Query Before Exit}.
@item :coding @var{coding}
Use this to set the coding systems used by the network process, in
preference to binding @code{coding-system-for-read} or

View file

@ -173,6 +173,9 @@ a greeting from the server.
:nowait, if non-nil, says the connection should be made
asynchronously, if possible.
:noquery - when exiting Emacs and the network process is running,
don't query the user if it's non-nil.
:shell-command is a `format-spec' string that can be used if
:type is `shell'. It has two specs, %s for host and %p for port
number. Example: \"ssh gateway nc %s %p\".
@ -195,6 +198,7 @@ gnutls-boot (as returned by `gnutls-boot-parameters')."
(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))

View file

@ -1200,7 +1200,8 @@ This docstring appeases checkdoc, that's all."
(pcase-let ((`(,connection . ,inferior)
(eglot--inferior-bootstrap
readable-name
contact)))
contact
'(:noquery t))))
(setq autostart-inferior-process inferior)
connection))))
((stringp (car contact))