Mercurial > emacs

comparison src/dosfns.c @ 7272:b5f74966c9da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Finish downcasing mouse_init1, mouse_off, mouse_check_moved, mouse_pressed, mouse_released, mouse_on, mouse_init. (Fmode25, Fmode4350): Clean up the coding and return a well-defined value. (syms_of_dosfns): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Mon, 02 May 1994 07:51:29 +0000
parents a203b7c30300
children b36d5e88cccc
comparison
equal deleted inserted replaced
7271:6a33d4f04dbf 7272:b5f74966c9da
32 #include "termhooks.h" 32 #include "termhooks.h"
33 #include "frame.h" 33 #include "frame.h"
34 #include "dosfns.h" 34 #include "dosfns.h"
35 #include "msdos.h" 35 #include "msdos.h"
36 36
37 static void 37 DEFUN ("mode25", Fmode25, Smode25, 0, 0, "", "\
38 mode_resetsize () 38 Changes the number of rows to 25.")
39 {
40 Fset_screen_width (ScreenCols (), Qnil);
41 Fset_screen_height (ScreenRows (), Qnil);
42 }
43
44 DEFUN ("mode25", Fmode25, Smode25, 0, 0, "",
45 "Set the number of rows to 25.")
46 () 39 ()
47 { 40 {
48 union REGS regs; 41 union REGS regs;
49 42
50 if (have_mouse) Mouse_off (); 43 #ifdef HAVE_X_WINDOWS
44 if (!inhibit_window_system)
45 return Qnil;
46 #endif
47 if (have_mouse) mouse_off ();
51 regs.x.ax = 3; 48 regs.x.ax = 3;
52 int86 (0x10, &regs, &regs); 49 int86 (0x10, &regs, &regs);
53 regs.x.ax = 0x1101; 50 regs.x.ax = 0x1101;
54 regs.h.bl = 0; 51 regs.h.bl = 0;
55 int86 (0x10, &regs, &regs); 52 int86 (0x10, &regs, &regs);
56 regs.x.ax = 0x1200; 53 regs.x.ax = 0x1200;
57 regs.h.bl = 32; 54 regs.h.bl = 32;
58 int86 (0x10, &regs, &regs); 55 int86 (0x10, &regs, &regs);
59 regs.x.ax = 3; 56 regs.x.ax = 3;
60 int86 (0x10, &regs, &regs); 57 int86 (0x10, &regs, &regs);
61 mode_resetsize (); 58 Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
62 Frecenter (Qnil); 59 Frecenter (Qnil);
63 Fredraw_display (); 60 Fredraw_display ();
64 if (have_mouse) Mouse_init (); 61 if (have_mouse) mouse_init ();
65 } 62 return Qnil;
66 63 }
67 DEFUN ("mode4350", Fmode4350, Smode4350, 0, 0, "", 64
68 "Set the number of rows to 43 (EGA) or 50 (VGA).") 65 DEFUN ("mode4350", Fmode4350, Smode4350, 0, 0, "", "\
66 Changes the number of rows to 43 (EGA) or 50 (VGA).")
69 () 67 ()
70 { 68 {
71 union REGS regs; 69 union REGS regs;
72 70
73 if (have_mouse) Mouse_off (); 71 #ifdef HAVE_X_WINDOWS
72 if (!inhibit_window_system)
73 return Qnil;
74 #endif
75 if (have_mouse) mouse_off ();
74 regs.x.ax = 3; 76 regs.x.ax = 3;
75 int86 (0x10, &regs, &regs); 77 int86 (0x10, &regs, &regs);
76 regs.x.ax = 0x1112; 78 regs.x.ax = 0x1112;
77 regs.h.bl = 0; 79 regs.h.bl = 0;
78 int86 (0x10, &regs, &regs); 80 int86 (0x10, &regs, &regs);
80 regs.h.bl = 32; 82 regs.h.bl = 32;
81 int86 (0x10, &regs, &regs); 83 int86 (0x10, &regs, &regs);
82 regs.x.ax = 0x0100; 84 regs.x.ax = 0x0100;
83 regs.x.cx = 7; 85 regs.x.cx = 7;
84 int86 (0x10, &regs, &regs); 86 int86 (0x10, &regs, &regs);
85 mode_resetsize (); 87 Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
86 Frecenter (Qnil); 88 Frecenter (Qnil);
87 Fredraw_display (); 89 Fredraw_display ();
88 if (have_mouse) Mouse_init (); 90 if (have_mouse) mouse_init ();
91 return Qnil;
89 } 92 }
90 93
91 DEFUN ("int86", Fint86, Sint86, 2, 2, 0, 94 DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
92 "Call specific MSDOS interrupt number INTERRUPT with REGISTERS.\n\ 95 "Call specific MSDOS interrupt number INTERRUPT with REGISTERS.\n\
93 Return the updated REGISTER vector.\n\ 96 Return the updated REGISTER vector.\n\
197 "The country code returned by Dos when Emacs was started.\n\ 200 "The country code returned by Dos when Emacs was started.\n\
198 Usually this is the international telephone prefix."); 201 Usually this is the international telephone prefix.");
199 202
200 DEFVAR_INT ("dos-codepage", &dos_codepage, 203 DEFVAR_INT ("dos-codepage", &dos_codepage,
201 "The codepage active when Emacs was started.\n\ 204 "The codepage active when Emacs was started.\n\
202 The following are known: 205 The following are known:\n\
203 437 US 206 437 United States\n\
204 850 Multilingual 207 850 Multilingual (Latin I)\n\
205 852 Slavic/Latin II 208 852 Slavic (Latin II)\n\
206 857 Turkish 209 857 Turkish\n\
207 860 Portugal 210 860 Portugal\n\
208 861 Iceland 211 861 Iceland\n\
209 863 Canada (French) 212 863 Canada (French)\n\
210 865 Norway/Denmark"); 213 865 Norway/Denmark");
211 214
212 DEFVAR_LISP ("dos-version", &Vdos_version, 215 DEFVAR_LISP ("dos-version", &Vdos_version,
213 "The (MAJOR . MINOR) Dos version (subject to modification with setver)."); 216 "The (MAJOR . MINOR) Dos version (subject to modification with setver).");
214 } 217 }