* process.c (send_process): Count partial writes as successes.

See http://lists.gnu.org/archive/html/emacs-devel/2011-04/msg00483.html

2 files changed, 4 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 73d27f26d45..9aa58fb0884 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2011-04-13  Paul Eggert  <eggert@cs.ucla.edu>
 
+        * process.c (send_process): Count partial writes as successes.
+        See http://lists.gnu.org/archive/html/emacs-devel/2011-04/msg00483.html
+
         emacs_write: Return size_t, not ssize_t, to avoid overflow issues.
         * gnutls.c, gnutls.h (emacs_gnutls_write): Return size_t, not ssize_t.
         * sysdep.c, lisp.h (emacs_write): Likewise.
diff --git a/src/process.c b/src/process.c
index 2eed7b4654f..2c3124f429c 100644
--- a/src/process.c
+++ b/src/process.c
@@ -5396,7 +5396,7 @@ send_process (volatile Lisp_Object proc, const char *volatile buf,
                   else
 #endif
                     written = emacs_write (outfd, buf, this);
-                  rv = (written == this ? 0 : -1);
+                  rv = (written ? 0 : -1);
 #ifdef ADAPTIVE_READ_BUFFERING
                   if (p->read_output_delay > 0
                       && p->adaptive_read_buffering == 1)