changeset 5593:58c0f2c7dfae

(comint-show-output): Leave point at start of output, but push the mark.
author Richard M. Stallman <rms@gnu.org>
date Sat, 15 Jan 1994 13:02:16 +0000
parents ee1ed3d9e517
children f97415a8cf41
files lisp/comint.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/comint.el	Sat Jan 15 01:25:35 1994 +0000
+++ b/lisp/comint.el	Sat Jan 15 13:02:16 1994 +0000
@@ -1418,13 +1418,12 @@
   "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."