mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-07 12:20:39 -08:00
Code Issues Projects Releases Wiki Activity

(Fwrite_region): Fix minor bugs in POS arg to awrite.

Browse source
This commit is contained in:
Richard M. Stallman 1993-11-10 07:59:21 +00:00
parent b5e59c0380
commit c975dd7a65
1 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/fileio.c
View file

@ -2610,7 +2610,7 @@ to the file, instead of any buffer contents, and END is ignored.")
int save_errno;
unsigned char *fn;
struct stat st;
int tem, tem2;
int tem;
int count = specpdl_ptr - specpdl;
#ifdef VMS
unsigned char *fname = 0; /* If non-0, original filename (must rename) */
@ -2783,14 +2783,14 @@ to the file, instead of any buffer contents, and END is ignored.")
}
else if (XINT (start) != XINT (end))
{
tem2 = 1;
int nwritten = 0;
if (XINT (start) < GPT)
{
register int end1 = XINT (end);
tem = XINT (start);
failure = 0 > a_write (desc, &FETCH_CHAR (tem),
min (GPT, end1) - tem, 1, &annotations);
tem2 += min (GPT, end1) - tem;
min (GPT, end1) - tem, tem, &annotations);
nwritten += min (GPT, end1) - tem;
save_errno = errno;
}
@ -2799,14 +2799,15 @@ to the file, instead of any buffer contents, and END is ignored.")
tem = XINT (start);
tem = max (tem, GPT);
failure = 0 > a_write (desc, &FETCH_CHAR (tem), XINT (end) - tem,
tem2, &annotations);
tem2 += XINT (end) - tem;
tem, &annotations);
nwritten += XINT (end) - tem;
save_errno = errno;
}
if (tem2 == 1)
if (nwritten == 0)
{
/* If file was empty, still need to write the annotations */
failure = 0 > a_write (desc, "", 0, 1, &annotations);
failure = 0 > a_write (desc, "", 0, XINT (start), &annotations);
save_errno = errno;
}
}