Mercurial > emacs
comparison lisp/comint.el @ 90234:b1c1fc853d2f
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-86
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 562-568)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 125-128)
- Merge from emacs--cvs-trunk--0
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 30 Sep 2005 11:43:45 +0000 |
| parents | 2d92f5c9d6ae e0ee2d15f961 |
| children | aa89c814f853 |
comparison
equal
deleted
inserted
replaced
| 90233:ee12d75eb214 | 90234:b1c1fc853d2f |
|---|---|
| 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. |