From ec13c46bbd15a917ce9f2dd2c6d241088446d769 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 15 Aug 2019 00:16:02 -0700 Subject: [PATCH] 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). --- lisp/simple.el | 17 +++++++++++------ 1 file 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))) -- 2.39.5