# HG changeset patch
# User Brian Fox <bfox@gnu.org>
# Date 748721331 0
# Node ID 2c6033bfb871b159c84703256803eeb881f24237
# Parent  d6ddaf79ea6ae4c6fd42d9f1954c157df3b23ab4
(sys_write): Keep trying to write out the data until
all of the data is written, or until we receive an error which is
not an interrupted write.

diff -r d6ddaf79ea6a -r 2c6033bfb871 src/sysdep.c
--- a/src/sysdep.c	Wed Sep 22 18:07:44 1993 +0000
+++ b/src/sysdep.c	Wed Sep 22 18:08:51 1993 +0000
@@ -2116,6 +2116,12 @@
   e.modifiers = 0;
   for (i = 0; i < nread; i++)
     {
+      /* If the user says she has a meta key, then believe her. */
+      if (meta_key == 1 && (buf[i] & 0x80))
+	e.modifiers = meta_modifier;
+      if (meta_key != 2)
+	buf[i] &= ~0x80;
+
       XSET (e.code, Lisp_Int, buf[i]);
       kbd_buffer_store_event (&e);
       /* Don't look at input that follows a C-g too closely.
@@ -2586,11 +2592,27 @@
      char *buf;
      unsigned int nbyte;
 {
-  register int rtnval;
-
-  while ((rtnval = write (fildes, buf, nbyte)) == -1
-	 && (errno == EINTR));
-  return (rtnval);
+  register int rtnval, bytes_written;
+
+  bytes_written = 0;
+
+  while (nbyte > 0)
+    {
+      rtnval = write (fildes, buf, nbyte);
+
+      if (rtnval == -1)
+	{
+	  if (errno == EINTR)
+	    continue;
+	  else
+	    return (-1);
+	}
+
+      buf += rtnval;
+      nbyte -= rtnval;
+      bytes_written += rtnval;
+    }
+  return (bytes_written);
 }
 
 #endif /* INTERRUPTIBLE_IO */