diff options
| -rw-r--r-- | lisp/simple.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 4efad8ce9e3..8c9d546bb72 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -3746,8 +3746,13 @@ support pty association, if PROGRAM is nil." | |||
| 3746 | (defun process-menu-delete-process () | 3746 | (defun process-menu-delete-process () |
| 3747 | "Kill process at point in a `list-processes' buffer." | 3747 | "Kill process at point in a `list-processes' buffer." |
| 3748 | (interactive) | 3748 | (interactive) |
| 3749 | (delete-process (tabulated-list-get-id)) | 3749 | (let ((pos (point))) |
| 3750 | (revert-buffer)) | 3750 | (delete-process (tabulated-list-get-id)) |
| 3751 | (revert-buffer) | ||
| 3752 | (goto-char (min pos (point-max))) | ||
| 3753 | (if (eobp) | ||
| 3754 | (forward-line -1) | ||
| 3755 | (beginning-of-line)))) | ||
| 3751 | 3756 | ||
| 3752 | (defun list-processes--refresh () | 3757 | (defun list-processes--refresh () |
| 3753 | "Recompute the list of processes for the Process List buffer. | 3758 | "Recompute the list of processes for the Process List buffer. |