From 1b0bf990b53a2626e2b825101615d72d78f98ef7 Mon Sep 17 00:00:00 2001 From: Tino Calancha Date: Tue, 23 Feb 2016 16:24:52 +1100 Subject: [PATCH] Keep the position in the process buffer when deleting processes * lisp/simple.el (process-menu-delete-process): Keep the position in the buffer after killing a process (bug#21759). Copyright-paperwork-exempt: yes --- lisp/simple.el | 9 +++++++-- 1 file 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." (defun process-menu-delete-process () "Kill process at point in a `list-processes' buffer." (interactive) - (delete-process (tabulated-list-get-id)) - (revert-buffer)) + (let ((pos (point))) + (delete-process (tabulated-list-get-id)) + (revert-buffer) + (goto-char (min pos (point-max))) + (if (eobp) + (forward-line -1) + (beginning-of-line)))) (defun list-processes--refresh () "Recompute the list of processes for the Process List buffer. -- 2.11.4.GIT