(ctl-x-5-map, ctl-x-5-prefix): Duplicate defs deleted.

[gnu-emacs] / lib-src / env.c

diff --git a/lib-src/env.c b/lib-src/env.c
index 282a94069df227bbe556245a3461ae04ab64c959..2ae81a630b839583f61b5d8706df17e77941c9cb 100644 (file)
--- a/lib-src/env.c
+++ b/lib-src/env.c
@@ -96,6 +96,9 @@ void setenv ();
 void fatal ();
 char *myindex ();
 
+extern char *strerror ();
+
+
 main (argc, argv, envp)
      register int argc;
      register char **argv;
@@ -333,3 +336,18 @@ myindex (str, c)
     }
   return 0;
 }
+\f
+#ifndef HAVE_STRERROR
+char *
+strerror (errnum)
+     int errnum;
+{
+  extern char *sys_errlist[];
+  extern int sys_nerr;
+
+  if (errnum >= 0 && errnum < sys_nerr)
+    return sys_errlist[errnum];
+  return (char *) "Unknown error";
+}
+
+#endif /* ! HAVE_STRERROR */