#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\
return Qnil;
}
-DEFUN ("set-mouse-position", Fset_mouse_position, Sset_mouse_position, 3, 3, 0,
- "Move the mouse pointer to the center of character cell (X,Y) in FRAME.\n\
-WARNING: If you use this under X windows,\n\
-you should call `unfocus-frame' afterwards.")
- (frame, x, y)
- Lisp_Object frame, x, y;
-{
- mouse_moveto (XINT (x), XINT (y));
- return Qnil;
-}
-
/* Function to translate colour names to integers. See lisp/term/pc-win.el
for its definition. */
return Qt;
}
-
-DEFUN ("msdos-long-file-names", Fmsdos_long_file_names, Smsdos_long_file_names,
- 0, 0, 0,
- "Return non-nil if long file names are supported. on MSDOS.")
- ()
-{
-#if __DJGPP__ >= 2
- return (! NILP (Fgetenv ("LFN")) ? Qt : Qnil);
-#else
- return Qnil;
-#endif
-}
-
\f
/* country info */
int dos_country_code;
}
else
dos_codepage = regs.x.bx & 0xffff;
+
+#if __DJGPP__ >= 2
+
+ /* Without this, we never see hidden files.
+ Don't OR it with the previous value, so the value recorded at dump
+ time, possibly with `preserve-case' flags set, won't get through. */
+ __opendir_flags = __OPENDIR_FIND_HIDDEN;
+
+#if __DJGPP_MINOR__ == 0
+ /* Under LFN, preserve the case of files as recorded in the directory
+ (in DJGPP 2.01 and later this is automagically done by the library). */
+ if (!NILP (Fmsdos_long_file_names ()))
+ __opendir_flags |= __OPENDIR_PRESERVE_CASE;
+#endif /* __DJGPP_MINOR__ == 0 */
+#endif /* __DJGPP__ >= 2 */
}
\f
/*
defsubr (&Smsdos_set_keyboard);
defsubr (&Sinsert_startup_screen);
defsubr (&Smsdos_mouse_disable);
- defsubr (&Smsdos_long_file_names);
#ifndef HAVE_X_WINDOWS
defsubr (&Smsdos_mouse_p);
- defsubr (&Sset_mouse_position);
-
Qmsdos_color_translate = intern ("msdos-color-translate");
staticpro (&Qmsdos_color_translate);
#endif