From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 13 May 1996 01:28:24 +0000 (+0000)
Subject: (init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
X-Git-Tag: emacs-19.34~636
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5066676655ae1db49d3ed90df1fb0628afaed5c9;p=emacs.git

(init_dosfns) [DJGPP >= 2]: Make `opendir' preserve
filename case (under Win95) and find hidden files.
---

diff --git a/src/dosfns.c b/src/dosfns.c
index a88f992e56b..d66912f2363 100644
--- a/src/dosfns.c
+++ b/src/dosfns.c
@@ -35,6 +35,7 @@ Boston, MA 02111-1307, USA.  */
 #include "dosfns.h"
 #include "msdos.h"
 #include <go32.h>
+#include <dirent.h>
 
 DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
   "Call specific MSDOS interrupt number INTERRUPT with REGISTERS.\n\
@@ -304,6 +305,17 @@ init_dosfns ()
       }
   else
     dos_codepage = regs.x.bx & 0xffff;
+
+#if __DJGPP__ >= 2
+
+  /* Without this, we never see hidden files.  */
+  __opendir_flags |= __OPENDIR_FIND_HIDDEN;
+
+  /* Under LFN, preserve the case of files as recorded in the directory.  */
+  if (!NILP (Fmsdos_long_file_names ()))
+    __opendir_flags |= __OPENDIR_PRESERVE_CASE;
+
+#endif
 }
 
 /*