Mercurial > emacs
comparison lisp/comint.el @ 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 | 73389b4a4a9d |
children | c04ea0b0dbc0 |
comparison
equal
deleted
inserted
replaced
5592:ee1ed3d9e517 | 5593:58c0f2c7dfae |
---|---|
1416 | 1416 |
1417 (defun comint-show-output () | 1417 (defun comint-show-output () |
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." |
1431 (interactive) | 1430 (interactive) |
1432 (interrupt-process nil comint-ptyp)) | 1431 (interrupt-process nil comint-ptyp)) |