diff options
| author | Eli Zaretskii | 2016-10-23 16:04:20 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2016-10-23 16:04:20 +0300 |
| commit | b8e8e1528829516ccce5ce0be8b97cdce0a86999 (patch) | |
| tree | 1d630f744e0b79aae4822a792857cc2ae9ba29fe | |
| parent | d784e75776795fbbe88c00819fe3551d3c50e0a0 (diff) | |
| download | emacs-b8e8e1528829516ccce5ce0be8b97cdce0a86999.tar.gz emacs-b8e8e1528829516ccce5ce0be8b97cdce0a86999.zip | |
Revert "* lisp/simple.el (process-menu-mode, list-processes--refresh):"
This reverts commit a4285bcb1114e29200001f33af9b4802167d6140.
Do not merge to master!
| -rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 6d36a88892f..8f5324f20ec 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -3749,7 +3749,6 @@ support pty association, if PROGRAM is nil." | |||
| 3749 | (define-derived-mode process-menu-mode tabulated-list-mode "Process Menu" | 3749 | (define-derived-mode process-menu-mode tabulated-list-mode "Process Menu" |
| 3750 | "Major mode for listing the processes called by Emacs." | 3750 | "Major mode for listing the processes called by Emacs." |
| 3751 | (setq tabulated-list-format [("Process" 15 t) | 3751 | (setq tabulated-list-format [("Process" 15 t) |
| 3752 | ("PID" 7 t) | ||
| 3753 | ("Status" 7 t) | 3752 | ("Status" 7 t) |
| 3754 | ("Buffer" 15 t) | 3753 | ("Buffer" 15 t) |
| 3755 | ("TTY" 12 t) | 3754 | ("TTY" 12 t) |
| @@ -3776,7 +3775,6 @@ Also, delete any process that is exited or signaled." | |||
| 3776 | (process-query-on-exit-flag p)) | 3775 | (process-query-on-exit-flag p)) |
| 3777 | (let* ((buf (process-buffer p)) | 3776 | (let* ((buf (process-buffer p)) |
| 3778 | (type (process-type p)) | 3777 | (type (process-type p)) |
| 3779 | (pid (if (process-id p) (format "%d" (process-id p)) "--")) | ||
| 3780 | (name (process-name p)) | 3778 | (name (process-name p)) |
| 3781 | (status (symbol-name (process-status p))) | 3779 | (status (symbol-name (process-status p))) |
| 3782 | (buf-label (if (buffer-live-p buf) | 3780 | (buf-label (if (buffer-live-p buf) |
| @@ -3812,7 +3810,7 @@ Also, delete any process that is exited or signaled." | |||
| 3812 | (format " at %s b/s" speed) | 3810 | (format " at %s b/s" speed) |
| 3813 | ""))))) | 3811 | ""))))) |
| 3814 | (mapconcat 'identity (process-command p) " ")))) | 3812 | (mapconcat 'identity (process-command p) " ")))) |
| 3815 | (push (list p (vector name pid status buf-label tty cmd)) | 3813 | (push (list p (vector name status buf-label tty cmd)) |
| 3816 | tabulated-list-entries)))))) | 3814 | tabulated-list-entries)))))) |
| 3817 | 3815 | ||
| 3818 | (defun process-menu-visit-buffer (button) | 3816 | (defun process-menu-visit-buffer (button) |