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 */