Mercurial > hg > xemacs-beta
comparison src/fileio.c @ 377:d883f39b8495 r21-2b4
Import from CVS: tag r21-2b4
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:05:42 +0200 |
parents | 6240c7796c7a |
children | 8626e4521993 |
comparison
equal
deleted
inserted
replaced
376:e2295b4d9f2e | 377:d883f39b8495 |
---|---|
3344 (This has supposedly been fixed in Sunos 4, | 3344 (This has supposedly been fixed in Sunos 4, |
3345 but who knows about all the other machines with NFS?) */ | 3345 but who knows about all the other machines with NFS?) */ |
3346 /* On VMS and APOLLO, must do the stat after the close | 3346 /* On VMS and APOLLO, must do the stat after the close |
3347 since closing changes the modtime. */ | 3347 since closing changes the modtime. */ |
3348 /* As it does on Windows too - kkm */ | 3348 /* As it does on Windows too - kkm */ |
3349 #if !defined (WINDOWSNT) /* !defined (VMS) && !defined (APOLLO) */ | 3349 /* The spurious warnings appear on Linux too. Rather than handling |
3350 this on a per-system basis, unconditionally do the stat after the close - cgw */ | |
3351 | |
3352 #if 0 /* !defined (WINDOWSNT) /* !defined (VMS) && !defined (APOLLO) */ | |
3350 fstat (desc, &st); | 3353 fstat (desc, &st); |
3351 #endif | 3354 #endif |
3352 | 3355 |
3353 /* NFS can report a write failure now. */ | 3356 /* NFS can report a write failure now. */ |
3354 if (close (desc) < 0) | 3357 if (close (desc) < 0) |
3362 as necessary). */ | 3365 as necessary). */ |
3363 XCAR (desc_locative) = Qnil; | 3366 XCAR (desc_locative) = Qnil; |
3364 unbind_to (speccount, Qnil); | 3367 unbind_to (speccount, Qnil); |
3365 } | 3368 } |
3366 | 3369 |
3367 #if defined (WINDOWSNT) /* defined (VMS) || defined (APOLLO) */ | 3370 /* # if defined (WINDOWSNT) /* defined (VMS) || defined (APOLLO) */ |
3368 stat ((char *) XSTRING_DATA (fn), &st); | 3371 stat ((char *) XSTRING_DATA (fn), &st); |
3369 #endif | 3372 /* #endif */ |
3370 | 3373 |
3371 #ifdef CLASH_DETECTION | 3374 #ifdef CLASH_DETECTION |
3372 if (!auto_saving) | 3375 if (!auto_saving) |
3373 unlock_file (lockname); | 3376 unlock_file (lockname); |
3374 #endif /* CLASH_DETECTION */ | 3377 #endif /* CLASH_DETECTION */ |