Mercurial > hg > xemacs-beta

comparison src/process-nt.c @ 333:4f79e16b1112 r21-0-64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-64
author cvs
date Mon, 13 Aug 2007 10:49:50 +0200
parents afd57c14dfc8
children 182f72e8cd0d
comparison
equal deleted inserted replaced
332:bb75ebac9531 333:4f79e16b1112
619 struct Lisp_Process *p = XPROCESS (proc); 619 struct Lisp_Process *p = XPROCESS (proc);
620 620
621 /* use a reasonable-sized buffer (somewhere around the size of the 621 /* use a reasonable-sized buffer (somewhere around the size of the
622 stream buffer) so as to avoid inundating the stream with blocked 622 stream buffer) so as to avoid inundating the stream with blocked
623 data. */ 623 data. */
624 Bufbyte chunkbuf[512]; 624 Bufbyte chunkbuf[128];
625 Bytecount chunklen; 625 Bytecount chunklen;
626 626
627 while (1) 627 while (1)
628 { 628 {
629 int writeret; 629 int writeret;
630 630
631 chunklen = Lstream_read (lstream, chunkbuf, 512); 631 chunklen = Lstream_read (lstream, chunkbuf, 128);
632 if (chunklen <= 0) 632 if (chunklen <= 0)
633 break; /* perhaps should abort() if < 0? 633 break; /* perhaps should abort() if < 0?
634 This should never happen. */ 634 This should never happen. */
635 635
636 /* Lstream_write() will never successfully write less than the 636 /* Lstream_write() will never successfully write less than the