aboutsummaryrefslogtreecommitdiffstats
path: root/src/msdos.c
diff options
context:
space:
mode:
authorTom Tromey2018-07-06 21:56:17 -0600
committerTom Tromey2018-07-12 22:12:27 -0600
commit42fe787b0f26c2df682b2797407a669ef8522ccb (patch)
treee944fe465e2b65703a8361bc82647faf4f7907f1 /src/msdos.c
parent01dbf2a347944497fdcf2ec156f4605020d7ba2a (diff)
downloademacs-42fe787b0f26c2df682b2797407a669ef8522ccb.tar.gz
emacs-42fe787b0f26c2df682b2797407a669ef8522ccb.zip
Rename integerp->fixnum, etc, in preparation for bignums
* src/json.c, src/keyboard.c, src/keyboard.h, src/keymap.c, src/kqueue.c, src/lcms.c, src/lisp.h, src/lread.c, src/macros.c, src/marker.c, src/menu.c, src/minibuf.c, src/msdos.c, src/print.c, src/process.c, src/profiler.c, src/search.c, src/sound.c, src/syntax.c, src/sysdep.c, src/term.c, src/terminal.c, src/textprop.c, src/undo.c, src/w16select.c, src/w32.c, src/w32console.c, src/w32cygwinx.c, src/w32fns.c, src/w32font.c, src/w32inevt.c, src/w32proc.c, src/w32select.c, src/w32term.c, src/w32uniscribe.c, src/widget.c, src/window.c, src/xdisp.c, src/xfaces.c, src/xfns.c, src/xfont.c, src/xftfont.c, src/xmenu.c, src/xrdb.c, src/xselect.c, src/xterm.c, src/xwidget.c: Rename INTEGERP->FIXNUM, make_number->make_fixnum, CHECK_NUMBER->CHECK_FIXNUM, make_natnum->make_fixed_natum, NUMBERP->FIXED_OR_FLOATP, NATNUMP->FIXNATP, CHECK_NATNUM->CHECK_FIXNAT.
Diffstat (limited to 'src/msdos.c')
-rw-r--r--src/msdos.c32
1 files changed, 16 insertions, 16 deletions
diff --git a/src/msdos.c b/src/msdos.c
index 6c0dfa0c46a..4f38b1de7d3 100644
--- a/src/msdos.c
+++ b/src/msdos.c
@@ -223,7 +223,7 @@ them. This happens with wheeled mice on Windows 9X, for example. */)
223{ 223{
224 int n; 224 int n;
225 225
226 CHECK_NUMBER (nbuttons); 226 CHECK_FIXNUM (nbuttons);
227 n = XINT (nbuttons); 227 n = XINT (nbuttons);
228 if (n < 2 || n > 3) 228 if (n < 2 || n > 3)
229 xsignal2 (Qargs_out_of_range, 229 xsignal2 (Qargs_out_of_range,
@@ -322,8 +322,8 @@ mouse_get_pos (struct frame **f, int insist, Lisp_Object *bar_window,
322 *bar_window = Qnil; 322 *bar_window = Qnil;
323 mouse_get_xy (&ix, &iy); 323 mouse_get_xy (&ix, &iy);
324 *time = event_timestamp (); 324 *time = event_timestamp ();
325 *x = make_number (mouse_last_x = ix); 325 *x = make_fixnum (mouse_last_x = ix);
326 *y = make_number (mouse_last_y = iy); 326 *y = make_fixnum (mouse_last_y = iy);
327} 327}
328 328
329static void 329static void
@@ -539,7 +539,7 @@ dos_set_window_size (int *rows, int *cols)
539 (video_name, "screen-dimensions-%dx%d", 539 (video_name, "screen-dimensions-%dx%d",
540 *rows, *cols), Qnil)); 540 *rows, *cols), Qnil));
541 541
542 if (INTEGERP (video_mode) 542 if (FIXNUMP (video_mode)
543 && (video_mode_value = XINT (video_mode)) > 0) 543 && (video_mode_value = XINT (video_mode)) > 0)
544 { 544 {
545 regs.x.ax = video_mode_value; 545 regs.x.ax = video_mode_value;
@@ -742,7 +742,7 @@ IT_set_cursor_type (struct frame *f, Lisp_Object cursor_type)
742 Lisp_Object bar_parms = XCDR (cursor_type); 742 Lisp_Object bar_parms = XCDR (cursor_type);
743 int width; 743 int width;
744 744
745 if (INTEGERP (bar_parms)) 745 if (FIXNUMP (bar_parms))
746 { 746 {
747 /* Feature: negative WIDTH means cursor at the top 747 /* Feature: negative WIDTH means cursor at the top
748 of the character cell, zero means invisible cursor. */ 748 of the character cell, zero means invisible cursor. */
@@ -751,8 +751,8 @@ IT_set_cursor_type (struct frame *f, Lisp_Object cursor_type)
751 width); 751 width);
752 } 752 }
753 else if (CONSP (bar_parms) 753 else if (CONSP (bar_parms)
754 && INTEGERP (XCAR (bar_parms)) 754 && FIXNUMP (XCAR (bar_parms))
755 && INTEGERP (XCDR (bar_parms))) 755 && FIXNUMP (XCDR (bar_parms)))
756 { 756 {
757 int start_line = XINT (XCDR (bar_parms)); 757 int start_line = XINT (XCDR (bar_parms));
758 758
@@ -1321,7 +1321,7 @@ IT_frame_up_to_date (struct frame *f)
1321 if (EQ (BVAR (b,cursor_type), Qt)) 1321 if (EQ (BVAR (b,cursor_type), Qt))
1322 new_cursor = frame_desired_cursor; 1322 new_cursor = frame_desired_cursor;
1323 else if (NILP (BVAR (b, cursor_type))) /* nil means no cursor */ 1323 else if (NILP (BVAR (b, cursor_type))) /* nil means no cursor */
1324 new_cursor = Fcons (Qbar, make_number (0)); 1324 new_cursor = Fcons (Qbar, make_fixnum (0));
1325 else 1325 else
1326 new_cursor = BVAR (b, cursor_type); 1326 new_cursor = BVAR (b, cursor_type);
1327 } 1327 }
@@ -1791,7 +1791,7 @@ internal_terminal_init (void)
1791 } 1791 }
1792 1792
1793 Vinitial_window_system = Qpc; 1793 Vinitial_window_system = Qpc;
1794 Vwindow_system_version = make_number (27); /* RE Emacs version */ 1794 Vwindow_system_version = make_fixnum (27); /* RE Emacs version */
1795 tty->terminal->type = output_msdos_raw; 1795 tty->terminal->type = output_msdos_raw;
1796 1796
1797 /* If Emacs was dumped on DOS/V machine, forget the stale VRAM 1797 /* If Emacs was dumped on DOS/V machine, forget the stale VRAM
@@ -2423,11 +2423,11 @@ dos_rawgetc (void)
2423 sc = regs.h.ah; 2423 sc = regs.h.ah;
2424 2424
2425 total_doskeys += 2; 2425 total_doskeys += 2;
2426 ASET (recent_doskeys, recent_doskeys_index, make_number (c)); 2426 ASET (recent_doskeys, recent_doskeys_index, make_fixnum (c));
2427 recent_doskeys_index++; 2427 recent_doskeys_index++;
2428 if (recent_doskeys_index == NUM_RECENT_DOSKEYS) 2428 if (recent_doskeys_index == NUM_RECENT_DOSKEYS)
2429 recent_doskeys_index = 0; 2429 recent_doskeys_index = 0;
2430 ASET (recent_doskeys, recent_doskeys_index, make_number (sc)); 2430 ASET (recent_doskeys, recent_doskeys_index, make_fixnum (sc));
2431 recent_doskeys_index++; 2431 recent_doskeys_index++;
2432 if (recent_doskeys_index == NUM_RECENT_DOSKEYS) 2432 if (recent_doskeys_index == NUM_RECENT_DOSKEYS)
2433 recent_doskeys_index = 0; 2433 recent_doskeys_index = 0;
@@ -2609,7 +2609,7 @@ dos_rawgetc (void)
2609 if (code == 0) 2609 if (code == 0)
2610 continue; 2610 continue;
2611 2611
2612 if (!hlinfo->mouse_face_hidden && INTEGERP (Vmouse_highlight)) 2612 if (!hlinfo->mouse_face_hidden && FIXNUMP (Vmouse_highlight))
2613 { 2613 {
2614 clear_mouse_face (hlinfo); 2614 clear_mouse_face (hlinfo);
2615 hlinfo->mouse_face_hidden = 1; 2615 hlinfo->mouse_face_hidden = 1;
@@ -2718,8 +2718,8 @@ dos_rawgetc (void)
2718 event.code = button_num; 2718 event.code = button_num;
2719 event.modifiers = dos_get_modifiers (0) 2719 event.modifiers = dos_get_modifiers (0)
2720 | (press ? down_modifier : up_modifier); 2720 | (press ? down_modifier : up_modifier);
2721 event.x = make_number (x); 2721 event.x = make_fixnum (x);
2722 event.y = make_number (y); 2722 event.y = make_fixnum (y);
2723 event.frame_or_window = selected_frame; 2723 event.frame_or_window = selected_frame;
2724 event.arg = Qnil; 2724 event.arg = Qnil;
2725 event.timestamp = event_timestamp (); 2725 event.timestamp = event_timestamp ();
@@ -4196,7 +4196,7 @@ msdos_fatal_signal (int sig)
4196void 4196void
4197syms_of_msdos (void) 4197syms_of_msdos (void)
4198{ 4198{
4199 recent_doskeys = Fmake_vector (make_number (NUM_RECENT_DOSKEYS), Qnil); 4199 recent_doskeys = Fmake_vector (make_fixnum (NUM_RECENT_DOSKEYS), Qnil);
4200 staticpro (&recent_doskeys); 4200 staticpro (&recent_doskeys);
4201 4201
4202#ifndef HAVE_X_WINDOWS 4202#ifndef HAVE_X_WINDOWS
@@ -4207,7 +4207,7 @@ syms_of_msdos (void)
4207 DEFVAR_LISP ("dos-unsupported-char-glyph", Vdos_unsupported_char_glyph, 4207 DEFVAR_LISP ("dos-unsupported-char-glyph", Vdos_unsupported_char_glyph,
4208 doc: /* Glyph to display instead of chars not supported by current codepage. 4208 doc: /* Glyph to display instead of chars not supported by current codepage.
4209This variable is used only by MS-DOS terminals. */); 4209This variable is used only by MS-DOS terminals. */);
4210 Vdos_unsupported_char_glyph = make_number ('\177'); 4210 Vdos_unsupported_char_glyph = make_fixnum ('\177');
4211 4211
4212#endif 4212#endif
4213 4213