Mercurial > hg > xemacs-beta

comparison src/process-nt.c @ 390:c6012109f545 r21-2-10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-10
author cvs
date Mon, 13 Aug 2007 11:10:03 +0200
parents 8626e4521993
children 74fd4e045ea6
comparison
equal deleted inserted replaced
389:94c6b1f087e1 390:c6012109f545
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