From: Vitalie Spinu <spinuvit@gmail.com>
Date: Mon, 7 Jan 2013 01:06:39 +0000 (-0800)
Subject: comint-send-input tiny change
X-Git-Tag: emacs-24.2.92~19
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=236a8f0cc08f7393b606e31041e12f04c8d4b517;p=emacs.git

comint-send-input tiny change

* lisp/comint.el (comint-send-input): Check size of buffer before
waiting for process output, in case already accepted.

Fixes: debbugs:13290
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 86cd55c6c36..54ce07b1fb2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-01-07  Vitalie Spinu  <spinuvit@gmail.com>  (tiny change)
+
+	* comint.el (comint-send-input): Check size of buffer before
+	waiting for process output, in case already accepted.  (Bug#13290)
+
 2013-01-04  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp-sh.el (tramp-set-file-uid-gid): UID and GID must be
diff --git a/lisp/comint.el b/lisp/comint.el
index 7bdf67f8503..eda73af3501 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1847,9 +1847,9 @@ Similarly for Soar, Scheme, etc."
           (let ((echo-len (- comint-last-input-end
                              comint-last-input-start)))
             ;; Wait for all input to be echoed:
-            (while (and (accept-process-output proc)
-                        (> (+ comint-last-input-end echo-len)
+            (while (and (> (+ comint-last-input-end echo-len)
                            (point-max))
+                        (accept-process-output proc)
                         (zerop
                          (compare-buffer-substrings
                           nil comint-last-input-start