Mercurial > emacs
comparison src/fileio.c @ 74398:48c50a37cc14
[__NetBSD__]: Don't define `unix'.
(Funix_sync, syms_of_fileio): Use `#ifdef HAVE_SYNC' instead of
`#ifdef unix'.
author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
---|---|
date | Mon, 04 Dec 2006 08:16:47 +0000 |
parents | cb533833bfb7 |
children | 9354f251fbae f1d13e615070 |
comparison
equal
deleted
inserted
replaced
74397:429f18443ca0 | 74398:48c50a37cc14 |
---|---|
3539 } | 3539 } |
3540 | 3540 |
3541 return Qt; | 3541 return Qt; |
3542 } | 3542 } |
3543 | 3543 |
3544 #ifdef __NetBSD__ | 3544 #ifdef HAVE_SYNC |
3545 #define unix 42 | |
3546 #endif | |
3547 | |
3548 #ifdef unix | |
3549 DEFUN ("unix-sync", Funix_sync, Sunix_sync, 0, 0, "", | 3545 DEFUN ("unix-sync", Funix_sync, Sunix_sync, 0, 0, "", |
3550 doc: /* Tell Unix to finish all pending disk updates. */) | 3546 doc: /* Tell Unix to finish all pending disk updates. */) |
3551 () | 3547 () |
3552 { | 3548 { |
3553 sync (); | 3549 sync (); |
3554 return Qnil; | 3550 return Qnil; |
3555 } | 3551 } |
3556 | 3552 |
3557 #endif /* unix */ | 3553 #endif /* HAVE_SYNC */ |
3558 | 3554 |
3559 DEFUN ("file-newer-than-file-p", Ffile_newer_than_file_p, Sfile_newer_than_file_p, 2, 2, 0, | 3555 DEFUN ("file-newer-than-file-p", Ffile_newer_than_file_p, Sfile_newer_than_file_p, 2, 2, 0, |
3560 doc: /* Return t if file FILE1 is newer than file FILE2. | 3556 doc: /* Return t if file FILE1 is newer than file FILE2. |
3561 If FILE1 does not exist, the answer is nil; | 3557 If FILE1 does not exist, the answer is nil; |
3562 otherwise, if FILE2 does not exist, the answer is t. */) | 3558 otherwise, if FILE2 does not exist, the answer is t. */) |
6791 | 6787 |
6792 defsubr (&Sread_file_name_internal); | 6788 defsubr (&Sread_file_name_internal); |
6793 defsubr (&Sread_file_name); | 6789 defsubr (&Sread_file_name); |
6794 defsubr (&Snext_read_file_uses_dialog_p); | 6790 defsubr (&Snext_read_file_uses_dialog_p); |
6795 | 6791 |
6796 #ifdef unix | 6792 #ifdef HAVE_SYNC |
6797 defsubr (&Sunix_sync); | 6793 defsubr (&Sunix_sync); |
6798 #endif | 6794 #endif |
6799 } | 6795 } |
6800 | 6796 |
6801 /* arch-tag: 64ba3fd7-f844-4fb2-ba4b-427eb928786c | 6797 /* arch-tag: 64ba3fd7-f844-4fb2-ba4b-427eb928786c |