aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorLars Ingebrigtsen2019-09-20 20:19:28 +0200
committerLars Ingebrigtsen2019-09-20 20:19:28 +0200
commitb8e9baac9ada62c2ea7437579df4be9d4f437fda (patch)
tree6b91ed5b5a4f48bb47e7e12e7dc42d7d2e07fb59 /lisp
parent385bb140de767ff59b026f5540e0e8bfae53fb55 (diff)
downloademacs-b8e9baac9ada62c2ea7437579df4be9d4f437fda.tar.gz
emacs-b8e9baac9ada62c2ea7437579df4be9d4f437fda.zip
Allow `process-contact' not to block
* doc/lispref/processes.texi (Process Information): Document it. * lisp/simple.el (list-processes--refresh): Don't wait for contact information for non-setup processes. * src/process.c (Fprocess_contact): Take an optional parameter to avoid blocking (bug#37408).
Diffstat (limited to 'lisp')
-rw-r--r--lisp/simple.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index 358b6a4f200..a267200aeb9 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4107,7 +4107,7 @@ Also, delete any process that is exited or signaled."
4107 (t "--"))) 4107 (t "--")))
4108 (cmd 4108 (cmd
4109 (if (memq type '(network serial)) 4109 (if (memq type '(network serial))
4110 (let ((contact (process-contact p t))) 4110 (let ((contact (process-contact p t t)))
4111 (if (eq type 'network) 4111 (if (eq type 'network)
4112 (format "(%s %s)" 4112 (format "(%s %s)"
4113 (if (plist-get contact :type) 4113 (if (plist-get contact :type)