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 bec58addcaa6364ccd739be6198f079c9e094436..cb938bb341d4016350764bd6d77b75939a3eefdb 100644 (file)
--- 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)))