Commit 8ab9876a authored by Daniel Colascione's avatar Daniel Colascione
Browse files

Provide command for deleting processes from list-processes buffer

parent 16adf2e6
2014-03-26 Daniel Colascione <dancol@dancol.org>
* simple.el (process-menu-mode-map): New variable.
(process-menu-delete-process): New command.
2014-03-26 Juanma Barranquero <lekktu@gmail.com>
 
* emacs-lisp/package.el: Fix bug#16733 (again).
......
......@@ -3269,6 +3269,11 @@ support pty association, if PROGRAM is nil."
(defvar process-menu-query-only nil)
(defvar process-menu-mode-map
(let ((map (make-sparse-keymap)))
(define-key map [?d] 'process-menu-delete-process)
map))
(define-derived-mode process-menu-mode tabulated-list-mode "Process Menu"
"Major mode for listing the processes called by Emacs."
(setq tabulated-list-format [("Process" 15 t)
......@@ -3281,6 +3286,12 @@ support pty association, if PROGRAM is nil."
(add-hook 'tabulated-list-revert-hook 'list-processes--refresh nil t)
(tabulated-list-init-header))
(defun process-menu-delete-process ()
"Kill process at point in a `list-processes' buffer."
(interactive)
(delete-process (tabulated-list-get-id))
(revert-buffer))
(defun list-processes--refresh ()
"Recompute the list of processes for the Process List buffer.
Also, delete any process that is exited or signaled."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment