From: Tino Calancha <f92capac@gmail.com>
Date: Tue, 23 Feb 2016 05:24:52 +0000 (+1100)
Subject: Keep the position in the process buffer when deleting processes
X-Git-Tag: emacs-26.0.90~2499
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b0bf990b53a2626e2b825101615d72d78f98ef7;p=emacs.git

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
---

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.