Mercurial > emacs
changeset 76897:56f63de10254
(comint-send-input): Widen the buffer first.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 02 Apr 2007 14:01:02 +0000 |
| parents | 4ac89469079b |
| children | 7520cc005b3a |
| files | lisp/comint.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Mon Apr 02 14:00:54 2007 +0000 +++ b/lisp/comint.el Mon Apr 02 14:01:02 2007 +0000 @@ -1502,6 +1502,7 @@ ;; Note that the input string does not include its terminal newline. (let ((proc (get-buffer-process (current-buffer)))) (if (not proc) (error "Current buffer has no process") + (widen) (let* ((pmark (process-mark proc)) (intxt (if (>= (point) (marker-position pmark)) (progn (if comint-eol-on-send (end-of-line)) @@ -1646,8 +1647,8 @@ (let ((inhibit-read-only t) (inhibit-modification-hooks t)) (add-text-properties (overlay-start comint-last-prompt-overlay) - (overlay-end comint-last-prompt-overlay) - (overlay-properties comint-last-prompt-overlay))))) + (overlay-end comint-last-prompt-overlay) + (overlay-properties comint-last-prompt-overlay))))) (defun comint-carriage-motion (start end) "Interpret carriage control characters in the region from START to END.