diff options
| author | Lars Ingebrigtsen | 2019-08-15 00:16:02 -0700 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-08-15 00:16:02 -0700 |
| commit | ec13c46bbd15a917ce9f2dd2c6d241088446d769 (patch) | |
| tree | cd636f6ad96575a51bff386d2aa96d8884838004 | |
| parent | 64538328da7c37482e8cb5c0f15c2eae1e8f16c5 (diff) | |
| download | emacs-ec13c46bbd15a917ce9f2dd2c6d241088446d769.tar.gz emacs-ec13c46bbd15a917ce9f2dd2c6d241088446d769.zip | |
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." | |||
| 4112 | "datagram" | 4112 | "datagram" |
| 4113 | "network") | 4113 | "network") |
| 4114 | (if (plist-get contact :server) | 4114 | (if (plist-get contact :server) |
| 4115 | (format "server on %s" | 4115 | (format |
| 4116 | (or | 4116 | "server on %s" |
| 4117 | (plist-get contact :host) | 4117 | (if (plist-get contact :host) |
| 4118 | (plist-get contact :local))) | 4118 | (format "%s:%s" |
| 4119 | (format "connection to %s" | 4119 | (plist-get contact :host) |
| 4120 | (plist-get contact :host)))) | 4120 | (plist-get |
| 4121 | contact :service)) | ||
| 4122 | (plist-get contact :local))) | ||
| 4123 | (format "connection to %s:%s" | ||
| 4124 | (plist-get contact :host) | ||
| 4125 | (plist-get contact :service)))) | ||
| 4121 | (format "(serial port %s%s)" | 4126 | (format "(serial port %s%s)" |
| 4122 | (or (plist-get contact :port) "?") | 4127 | (or (plist-get contact :port) "?") |
| 4123 | (let ((speed (plist-get contact :speed))) | 4128 | (let ((speed (plist-get contact :speed))) |