diff options
| author | Richard M. Stallman | 1994-01-15 13:02:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-01-15 13:02:16 +0000 |
| commit | 815c1a208b8b0f854913d097483bf50e5b198232 (patch) | |
| tree | 4945ff8e075345509785cf967ba36966c067d172 | |
| parent | 42255e72045075365f8c5538414a698b3bedf42b (diff) | |
| download | emacs-815c1a208b8b0f854913d097483bf50e5b198232.tar.gz emacs-815c1a208b8b0f854913d097483bf50e5b198232.zip | |
(comint-show-output): Leave point at start of output, but push the mark.
| -rw-r--r-- | lisp/comint.el | 5 |
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." | |||
| 1418 | "Display start of this batch of interpreter output at top of window. | 1418 | "Display start of this batch of interpreter output at top of window. |
| 1419 | Also put cursor there if the current position is not visible." | 1419 | Also put cursor there if the current position is not visible." |
| 1420 | (interactive) | 1420 | (interactive) |
| 1421 | (push-mark) | ||
| 1421 | (let ((pos (point))) | 1422 | (let ((pos (point))) |
| 1422 | (goto-char (or (marker-position comint-last-input-end) (point-max))) | 1423 | (goto-char (or (marker-position comint-last-input-end) (point-max))) |
| 1423 | (beginning-of-line 0) | 1424 | (beginning-of-line 0) |
| 1424 | (set-window-start (selected-window) (point)) | 1425 | (set-window-start (selected-window) (point)) |
| 1425 | (if (pos-visible-in-window-p pos) | 1426 | (comint-skip-prompt))) |
| 1426 | (goto-char pos) | ||
| 1427 | (comint-skip-prompt)))) | ||
| 1428 | 1427 | ||
| 1429 | (defun comint-interrupt-subjob () | 1428 | (defun comint-interrupt-subjob () |
| 1430 | "Interrupt the current subjob." | 1429 | "Interrupt the current subjob." |