# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1175522462 0
# Node ID 56f63de102547c5c7b5b9fb293739ac4e86b1c04
# Parent  4ac89469079b5c1eab3a00afd869e5a014acff37
(comint-send-input): Widen the buffer first.

diff -r 4ac89469079b -r 56f63de10254 lisp/comint.el
--- 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.