# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 836779037 0
# Node ID a973e9f3f6d1f1fc023c8555da8f3be2d602ee18
# Parent  537b4cdf9efff3f35369272b00d83b5ac56907ca
(file_name_completion): Set `stat' flags to avoid
computing expensive fields in struct stat (makes filename
completion much faster).

diff -r 537b4cdf9eff -r a973e9f3f6d1 src/dired.c
--- a/src/dired.c	Sun Jul 07 22:36:38 1996 +0000
+++ b/src/dired.c	Sun Jul 07 22:37:17 1996 +0000
@@ -295,6 +295,19 @@
   int count = specpdl_ptr - specpdl;
   struct gcpro gcpro1, gcpro2, gcpro3;
 
+#ifdef MSDOS
+#if __DJGPP__ > 1
+  /* Some fields of struct stat are *very* expensive to compute on MS-DOS,
+     but aren't required here.  Avoid computing the following fields:
+     st_inode, st_size and st_nlink for directories, and the execute bits
+     in st_mode for non-directory files with non-standard extensions.  */
+
+  unsigned short save_djstat_flags = _djstat_flags;
+
+  _djstat_flags = _STAT_INODE | _STAT_EXEC_MAGIC | _STAT_DIRSIZE;
+#endif
+#endif
+
 #ifdef VMS
   extern DIRENTRY * readdirver ();
 
@@ -496,6 +509,12 @@
   UNGCPRO;
   bestmatch = unbind_to (count, bestmatch);
 
+#ifdef MSDOS
+#if __DJGPP__ > 1
+  _djstat_flags = save_djstat_flags;
+#endif
+#endif
+
   if (all_flag || NILP (bestmatch))
     return bestmatch;
   if (matchcount == 1 && bestmatchsize == XSTRING (file)->size)