aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2016-10-23 16:04:20 +0300
committerEli Zaretskii2016-10-23 16:04:20 +0300
commitb8e8e1528829516ccce5ce0be8b97cdce0a86999 (patch)
tree1d630f744e0b79aae4822a792857cc2ae9ba29fe
parentd784e75776795fbbe88c00819fe3551d3c50e0a0 (diff)
downloademacs-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.el4
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)