From 815c1a208b8b0f854913d097483bf50e5b198232 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 15 Jan 1994 13:02:16 +0000 Subject: [PATCH] (comint-show-output): Leave point at start of output, but push the mark. --- lisp/comint.el | 5 ++--- 1 file 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." -- 2.39.5