(command_loop_1, read_char):

[bpt/emacs.git] / src / dosfns.c

diff --git a/src/dosfns.c b/src/dosfns.c
index 71149c7..69254ef 100644 (file)
--- a/src/dosfns.c
+++ b/src/dosfns.c
@@ -35,63 +35,7 @@ Boston, MA 02111-1307, USA.  */
 #include "dosfns.h"
 #include "msdos.h"
 #include <go32.h>
-
-DEFUN ("mode25", Fmode25, Smode25, 0, 0, "", "\
-Changes the number of rows to 25.")
-  ()
-{
-  union REGS regs;
-
-#ifdef HAVE_X_WINDOWS
-  if (!inhibit_window_system)
-    return Qnil;
-#endif
-  mouse_off ();
-  regs.x.ax = 3;
-  int86 (0x10, &regs, &regs);
-  regs.x.ax = 0x1101;
-  regs.h.bl = 0;
-  int86 (0x10, &regs, &regs);
-  regs.x.ax = 0x1200;
-  regs.h.bl = 32;
-  int86 (0x10, &regs, &regs);
-  regs.x.ax = 3;
-  int86 (0x10, &regs, &regs);
-  Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
-  Frecenter (Qnil);
-  Fredraw_display ();
-  if (have_mouse) mouse_init ();
-  return Qnil;
-}
-
-DEFUN ("mode4350", Fmode4350, Smode4350, 0, 0, "", "\
-Changes the number of rows to 43 (EGA) or 50 (VGA).")
-  ()
-{
-  union REGS regs;
-
-#ifdef HAVE_X_WINDOWS
-  if (!inhibit_window_system)
-    return Qnil;
-#endif
-  mouse_off ();
-  regs.x.ax = 3;
-  int86 (0x10, &regs, &regs);
-  regs.x.ax = 0x1112;
-  regs.h.bl = 0;
-  int86 (0x10, &regs, &regs);
-  regs.x.ax = 0x1200;
-  regs.h.bl = 32;
-  int86 (0x10, &regs, &regs);
-  regs.x.ax = 0x0100;
-  regs.x.cx = 7;
-  int86 (0x10, &regs, &regs);
-  Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
-  Frecenter (Qnil);
-  Fredraw_display ();
-  if (have_mouse) mouse_init ();
-  return Qnil;
-}
+#include <dirent.h>
 
 DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
   "Call specific MSDOS interrupt number INTERRUPT with REGISTERS.\n\
@@ -221,17 +165,6 @@ Report whether a mouse is present.")
     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.  */
 
@@ -297,7 +230,6 @@ Return nil if startup screen is not available.")
 
   return Qt;
 }
-
 \f
 /* country info */
 int dos_country_code;
@@ -362,6 +294,21 @@ init_dosfns ()
       }
   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
 /*
@@ -369,8 +316,6 @@ init_dosfns ()
  */
 syms_of_dosfns ()
 {
-  defsubr (&Smode25);
-  defsubr (&Smode4350);
   defsubr (&Sint86);
   defsubr (&Sdos_memget);
   defsubr (&Sdos_memput);
@@ -381,8 +326,6 @@ syms_of_dosfns ()
   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