[Emacs-diffs] master ec13c46 2/2: Include port numbers in `M-x list-processes'

[Lars Ingebrigtsen]

branch: master
commit ec13c46bbd15a917ce9f2dd2c6d241088446d769
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

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