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

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

diff --git a/src/ChangeLog b/src/ChangeLog
index 73d27f26d4542bd85a7377e705ed75cf68b969cf..9aa58fb088445cc9421f09a4e365af7a20a18924 100644 (file)
--- 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 2eed7b4654f6556feebeb3e1e10931e8831006de..2c3124f429cde6ddf7a4550fb761aaec309d3771 100644 (file)
--- 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)