diff options
| author | Juri Linkov <juri@linkov.net> | 2022-11-02 20:22:10 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-11-02 20:22:10 +0200 |
| commit | 969d71d11c62ae085f094a96ecea2fb504bb4602 (patch) | |
| tree | cf3b586f681fbe0441989874064ea9bcacb2371c /lisp | |
| parent | 62d40f27b2467a5eeaefec37fea305bda54f6524 (diff) | |
| download | emacs-969d71d11c62ae085f094a96ecea2fb504bb4602.tar.gz emacs-969d71d11c62ae085f094a96ecea2fb504bb4602.tar.bz2 emacs-969d71d11c62ae085f094a96ecea2fb504bb4602.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/network-stream.el | 4 | ||||
| -rw-r--r-- | lisp/progmodes/eglot.el | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/net/network-stream.el b/lisp/net/network-stream.el index 38a5e14c946..2b7e5393923 100644 --- a/lisp/net/network-stream.el +++ b/lisp/net/network-stream.el @@ -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)) 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 @@ 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)) |