diff options
| -rw-r--r-- | lisp/comint.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 52d7b2a1a4e..7d81f357e22 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -1502,6 +1502,7 @@ Similarly for Soar, Scheme, etc." | |||
| 1502 | ;; Note that the input string does not include its terminal newline. | 1502 | ;; Note that the input string does not include its terminal newline. |
| 1503 | (let ((proc (get-buffer-process (current-buffer)))) | 1503 | (let ((proc (get-buffer-process (current-buffer)))) |
| 1504 | (if (not proc) (error "Current buffer has no process") | 1504 | (if (not proc) (error "Current buffer has no process") |
| 1505 | (widen) | ||
| 1505 | (let* ((pmark (process-mark proc)) | 1506 | (let* ((pmark (process-mark proc)) |
| 1506 | (intxt (if (>= (point) (marker-position pmark)) | 1507 | (intxt (if (>= (point) (marker-position pmark)) |
| 1507 | (progn (if comint-eol-on-send (end-of-line)) | 1508 | (progn (if comint-eol-on-send (end-of-line)) |
| @@ -1646,8 +1647,8 @@ and moves the prompt overlay." | |||
| 1646 | (let ((inhibit-read-only t) | 1647 | (let ((inhibit-read-only t) |
| 1647 | (inhibit-modification-hooks t)) | 1648 | (inhibit-modification-hooks t)) |
| 1648 | (add-text-properties (overlay-start comint-last-prompt-overlay) | 1649 | (add-text-properties (overlay-start comint-last-prompt-overlay) |
| 1649 | (overlay-end comint-last-prompt-overlay) | 1650 | (overlay-end comint-last-prompt-overlay) |
| 1650 | (overlay-properties comint-last-prompt-overlay))))) | 1651 | (overlay-properties comint-last-prompt-overlay))))) |
| 1651 | 1652 | ||
| 1652 | (defun comint-carriage-motion (start end) | 1653 | (defun comint-carriage-motion (start end) |
| 1653 | "Interpret carriage control characters in the region from START to END. | 1654 | "Interpret carriage control characters in the region from START to END. |