#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;
}
-
\f
/* country info */
int dos_country_code;
}
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
}
\f
/*
defsubr (&Smsdos_mouse_disable);
#ifndef HAVE_X_WINDOWS
defsubr (&Smsdos_mouse_p);
- defsubr (&Sset_mouse_position);
-
Qmsdos_color_translate = intern ("msdos-color-translate");
staticpro (&Qmsdos_color_translate);
#endif