# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 763856063 0
# Node ID 62db5566c287dcf9553a38f87cb0883aa552738f
# Parent  16e6eb4c5afa86b4554a06f31c9815aac0239e12
(Ffile_modes) [MSDOS]: set exec-bit based on file suffix.

diff -r 16e6eb4c5afa -r 62db5566c287 src/fileio.c
--- a/src/fileio.c	Wed Mar 16 22:14:06 1994 +0000
+++ b/src/fileio.c	Wed Mar 16 22:14:23 1994 +0000
@@ -2352,6 +2352,19 @@
 
   if (stat (XSTRING (abspath)->data, &st) < 0)
     return Qnil;
+#ifdef MSDOS
+  {
+    int len;
+    char *suffix;
+    if (S_ISREG (st.st_mode)
+	&& (len = XSTRING (abspath)->size) >= 5
+	&& (stricmp ((suffix = XSTRING (abspath)->data + len-4), ".com") == 0
+	    || stricmp (suffix, ".exe") == 0
+	    || stricmp (suffix, ".bat") == 0))
+      st.st_mode |= S_IEXEC;
+  }
+#endif /* MSDOS */
+
   return make_number (st.st_mode & 07777);
 }