Files
2013-09-26 17:14:40 +02:00

59 lines
1.5 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
$NetBSD: patch-ah,v 1.5 2013/04/21 15:39:59 joerg Exp $
- use standard headers
- don't declare own errno
- don't rely on "unix" being defined, as it isn't
--- src/fileio.c.orig 1995-06-23 10:25:18.000000000 +0000
+++ src/fileio.c
@@ -116,10 +116,7 @@ the Free Software Foundation, 675 Mass A
#endif
#include <errno.h>
-
-#ifndef vax11c
-extern int errno;
-#endif
+#include <stdlib.h>
extern char *strerror ();
@@ -1788,10 +1785,7 @@ expand_and_dir_to_file (filename, defdir
return abspath;
}
-barf_or_query_if_file_exists (absname, querystring, interactive)
- Lisp_Object absname;
- unsigned char *querystring;
- int interactive;
+static void barf_or_query_if_file_exists (Lisp_Object absname, unsigned char *querystring, int interactive)
{
register Lisp_Object tem;
struct stat statbuf;
@@ -2604,8 +2598,6 @@ The value is an integer.")
return value;
}
-#ifdef unix
-
DEFUN ("unix-sync", Funix_sync, Sunix_sync, 0, 0, "",
"Tell Unix to finish all pending disk updates.")
()
@@ -2614,8 +2606,6 @@ DEFUN ("unix-sync", Funix_sync, Sunix_sy
return Qnil;
}
-#endif /* unix */
-
DEFUN ("file-newer-than-file-p", Ffile_newer_than_file_p, Sfile_newer_than_file_p, 2, 2, 0,
"Return t if file FILE1 is newer than file FILE2.\n\
If FILE1 does not exist, the answer is nil;\n\
@@ -4507,7 +4497,5 @@ This applies only to the operation `inhi
defsubr (&Sread_file_name_internal);
defsubr (&Sread_file_name);
-#ifdef unix
defsubr (&Sunix_sync);
-#endif
}