diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2007-04-02 14:01:02 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2007-04-02 14:01:02 +0000 |
| commit | 2bf75913fc6ec0ef3ca47b3a5c6089aca4bc9725 (patch) | |
| tree | 02bb18b6debde9d0b1b24be5fa08b75314b9546d /lisp/comint.el | |
| parent | ba830ecbfe8ee433167f73d60e87822399b8ff9f (diff) | |
| download | emacs-2bf75913fc6ec0ef3ca47b3a5c6089aca4bc9725.tar.gz | |
(comint-send-input): Widen the buffer first.
Diffstat (limited to 'lisp/comint.el')
| -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." ;; 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 @@ and moves the prompt overlay." (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. |