Mercurial > emacs
diff src/fileio.c @ 6383:62db5566c287
(Ffile_modes) [MSDOS]: set exec-bit based on file suffix.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 16 Mar 1994 22:14:23 +0000 |
| parents | 51a014b7c656 |
| children | 676612edbafe |
line wrap: on
line diff
--- 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); }