From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 15 Aug 2019 07:16:02 +0000 (-0700)
Subject: Include port numbers in `M-x list-processes'
X-Git-Tag: emacs-27.0.90~1616
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec13c46bbd15a917ce9f2dd2c6d241088446d769;p=emacs.git

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).
---

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)))