Mercurial > emacs
comparison lisp/comint.el @ 65724:e0ee2d15f961
(comint-show-output): Really set point at the beginning of the output
when not using `comint-use-prompt-regexp'.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Wed, 28 Sep 2005 17:47:00 +0000 |
| parents | 58d4ddcf0c9a |
| children | 06a7b3628c63 b1c1fc853d2f |
comparison
equal
deleted
inserted
replaced
| 65723:b88d5090aa86 | 65724:e0ee2d15f961 |
|---|---|
| 2054 (goto-char pos) | 2054 (goto-char pos) |
| 2055 (beginning-of-line 0) | 2055 (beginning-of-line 0) |
| 2056 (set-window-start (selected-window) (point)) | 2056 (set-window-start (selected-window) (point)) |
| 2057 (comint-skip-prompt)) | 2057 (comint-skip-prompt)) |
| 2058 (t | 2058 (t |
| 2059 (goto-char (field-beginning pos)) | 2059 (let* ((beg (field-beginning pos)) |
| 2060 (pt (if (= (point-min) beg) | |
| 2061 (point-min) | |
| 2062 (1+ beg)))) | |
| 2063 (goto-char pt)) | |
| 2060 (set-window-start (selected-window) (point)))))) | 2064 (set-window-start (selected-window) (point)))))) |
| 2061 | 2065 |
| 2062 | 2066 |
| 2063 (defun comint-interrupt-subjob () | 2067 (defun comint-interrupt-subjob () |
| 2064 "Interrupt the current subjob. | 2068 "Interrupt the current subjob. |