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)) |