Mercurial > emacs
comparison src/dosfns.c @ 9572:b36d5e88cccc
*** empty log message ***
author | Morten Welinder <terra@diku.dk> |
---|---|
date | Mon, 17 Oct 1994 08:42:36 +0000 |
parents | b5f74966c9da |
children | 8a1bd0598b49 |
comparison
equal
deleted
inserted
replaced
9571:b37425ecb3f0 | 9572:b36d5e88cccc |
---|---|
135 XVECTOR (regs)->contents[7] = make_number (outregs.x.flags); | 135 XVECTOR (regs)->contents[7] = make_number (outregs.x.flags); |
136 | 136 |
137 return regs; | 137 return regs; |
138 } | 138 } |
139 | 139 |
140 #ifndef HAVE_X_WINDOWS | |
141 /* Later we might want to control the mouse interface with this function, | |
142 e.g., with respect to non-80 column screen modes. */ | |
143 | |
144 DEFUN ("msdos-mouse-p", Fmsdos_mouse_p, Smsdos_mouse_p, 0, 0, 0, "\ | |
145 Report whether a mouse is present.") | |
146 () | |
147 { | |
148 if (have_mouse) | |
149 return Qt; | |
150 else | |
151 return Qnil; | |
152 } | |
153 | |
154 DEFUN ("set-mouse-position", Fset_mouse_position, Sset_mouse_position, 3, 3, 0, | |
155 "Move the mouse pointer to the center of character cell (X,Y) in FRAME.\n\ | |
156 WARNING: If you use this under X windows,\n\ | |
157 you should call `unfocus-frame' afterwards.") | |
158 (frame, x, y) | |
159 Lisp_Object frame, x, y; | |
160 { | |
161 mouse_moveto (XINT (x), XINT (y)); | |
162 } | |
163 | |
164 /* Function to translate colour names to integers. See lisp/term/pc-win.el | |
165 for its definition. */ | |
166 | |
167 Lisp_Object Qmsdos_color_translate; | |
168 #endif | |
169 | |
170 | |
140 int dos_country_code; | 171 int dos_country_code; |
141 int dos_codepage; | 172 int dos_codepage; |
142 Lisp_Object Vdos_version; | 173 Lisp_Object Vdos_version; |
143 | 174 |
144 void | 175 void |
146 { | 177 { |
147 union REGS regs; | 178 union REGS regs; |
148 _go32_dpmi_seginfo info; | 179 _go32_dpmi_seginfo info; |
149 _go32_dpmi_registers dpmiregs; | 180 _go32_dpmi_registers dpmiregs; |
150 | 181 |
182 #ifndef SYSTEM_MALLOC | |
151 get_lim_data (); /* why the hell isn't this called elsewhere? */ | 183 get_lim_data (); /* why the hell isn't this called elsewhere? */ |
184 #endif | |
152 | 185 |
153 regs.x.ax = 0x3000; | 186 regs.x.ax = 0x3000; |
154 intdos (®s, ®s); | 187 intdos (®s, ®s); |
155 Vdos_version = Fcons (make_number (regs.h.al), make_number (regs.h.ah)); | 188 Vdos_version = Fcons (make_number (regs.h.al), make_number (regs.h.ah)); |
156 | 189 |
193 syms_of_dosfns () | 226 syms_of_dosfns () |
194 { | 227 { |
195 defsubr (&Smode25); | 228 defsubr (&Smode25); |
196 defsubr (&Smode4350); | 229 defsubr (&Smode4350); |
197 defsubr (&Sint86); | 230 defsubr (&Sint86); |
231 #ifndef HAVE_X_WINDOWS | |
232 defsubr (&Smsdos_mouse_p); | |
233 defsubr (&Sset_mouse_position); | |
234 | |
235 Qmsdos_color_translate = intern ("msdos-color-translate"); | |
236 staticpro (&Qmsdos_color_translate); | |
237 #endif | |
198 | 238 |
199 DEFVAR_INT ("dos-country-code", &dos_country_code, | 239 DEFVAR_INT ("dos-country-code", &dos_country_code, |
200 "The country code returned by Dos when Emacs was started.\n\ | 240 "The country code returned by Dos when Emacs was started.\n\ |
201 Usually this is the international telephone prefix."); | 241 Usually this is the international telephone prefix."); |
202 | 242 |