(comint-show-output): Leave point at start of output, but push the mark.

1 files changed, 2 insertions, 3 deletions

diff --git a/lisp/comint.el b/lisp/comint.el
index 992e7a653ae..b24763810f5 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1418,13 +1418,12 @@ Does not delete the prompt."
   "Display start of this batch of interpreter output at top of window.
 Also put cursor there if the current position is not visible."
   (interactive)
+  (push-mark)
   (let ((pos (point)))
     (goto-char (or (marker-position comint-last-input-end) (point-max)))
     (beginning-of-line 0)
     (set-window-start (selected-window) (point))
-    (if (pos-visible-in-window-p pos)
-	(goto-char pos)
-      (comint-skip-prompt))))
+    (comint-skip-prompt)))
 
 (defun comint-interrupt-subjob ()
   "Interrupt the current subjob."