Commit 815c1a20 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 42255e72
......@@ -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."
(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)
(defun comint-interrupt-subjob ()
"Interrupt the current subjob."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment