diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-15 00:16:02 -0700 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-15 00:16:02 -0700 |
| commit | ec13c46bbd15a917ce9f2dd2c6d241088446d769 (patch) | |
| tree | cd636f6ad96575a51bff386d2aa96d8884838004 | |
| parent | 64538328da7c37482e8cb5c0f15c2eae1e8f16c5 (diff) | |
| download | emacs-ec13c46bbd15a917ce9f2dd2c6d241088446d769.tar.gz | |
Include port numbers in `M-x list-processes'
* lisp/simple.el (list-processes--refresh): Include the port
numbers in the network connection list (bug#13604).
| -rw-r--r-- | lisp/simple.el | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index bec58addcaa..cb938bb341d 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -4112,12 +4112,17 @@ Also, delete any process that is exited or signaled." "datagram" "network") (if (plist-get contact :server) - (format "server on %s" - (or - (plist-get contact :host) - (plist-get contact :local))) - (format "connection to %s" - (plist-get contact :host)))) + (format + "server on %s" + (if (plist-get contact :host) + (format "%s:%s" + (plist-get contact :host) + (plist-get + contact :service)) + (plist-get contact :local))) + (format "connection to %s:%s" + (plist-get contact :host) + (plist-get contact :service)))) (format "(serial port %s%s)" (or (plist-get contact :port) "?") (let ((speed (plist-get contact :speed))) |