From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 15 Jan 1994 13:02:16 +0000 (+0000)
Subject: (comint-show-output): Leave point at start of output, but push the mark.
X-Git-Tag: emacs-19.34~10258
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=815c1a208b8b0f854913d097483bf50e5b198232;p=emacs.git

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

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