From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 2 Apr 2007 14:01:02 +0000 (+0000)
Subject: (comint-send-input): Widen the buffer first.
X-Git-Tag: emacs-pretest-22.0.97~32
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2bf75913fc6ec0ef3ca47b3a5c6089aca4bc9725;p=emacs.git

(comint-send-input): Widen the buffer first.
---

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.