From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 25 Jan 1996 17:12:45 +0000 (+0000)
Subject: (mode25, mode4350): Moved to `lisp/dos-fns.el'.
X-Git-Tag: emacs-19.34~1493
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8f44c55eccca3558a6a304e9d5af0d50556597fd;p=emacs.git

(mode25, mode4350): Moved to `lisp/dos-fns.el'.
---

diff --git a/src/dosfns.c b/src/dosfns.c
index 71149c78c60..6030f0696c3 100644
--- a/src/dosfns.c
+++ b/src/dosfns.c
@@ -36,63 +36,6 @@ Boston, MA 02111-1307, USA.  */
 #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;
-}
-
 DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
   "Call specific MSDOS interrupt number INTERRUPT with REGISTERS.\n\
 Return the updated REGISTER vector.\n\
@@ -369,8 +312,6 @@ init_dosfns ()
  */
 syms_of_dosfns ()
 {
-  defsubr (&Smode25);
-  defsubr (&Smode4350);
   defsubr (&Sint86);
   defsubr (&Sdos_memget);
   defsubr (&Sdos_memput);