[Emacs-diffs] trunk r116882: Provide command for deleting processes from list-processes buffer

[Daniel Colascione]

------------------------------------------------------------
revno: 116882
revision-id: address@hidden
parent: address@hidden
committer: Daniel Colascione <address@hidden>
branch nick: trunk
timestamp: Wed 2014-03-26 14:01:47 -0700
message:
  Provide command for deleting processes from list-processes buffer
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/simple.el                 simple.el-20091113204419-o5vbwnq5f7feedwu-403

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-26 15:57:13 +0000
+++ b/lisp/ChangeLog    2014-03-26 21:01:47 +0000
@@ -1,3 +1,8 @@
+2014-03-26  Daniel Colascione  <address@hidden>
+
+       * simple.el (process-menu-mode-map): New variable.
+       (process-menu-delete-process): New command.
+
 2014-03-26  Juanma Barranquero  <address@hidden>
 
        * emacs-lisp/package.el: Fix bug#16733 (again).

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2014-03-26 15:57:13 +0000
+++ b/lisp/simple.el    2014-03-26 21:01:47 +0000
@@ -3269,6 +3269,11 @@
 
 (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 @@
   (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."