aboutsummaryrefslogtreecommitdiffstats
path: root/src/menu.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/menu.c')
-rw-r--r--src/menu.c20
1 files changed, 10 insertions, 10 deletions
diff --git a/src/menu.c b/src/menu.c
index 1d0ba3c258f..eac82017d3e 100644
--- a/src/menu.c
+++ b/src/menu.c
@@ -134,11 +134,11 @@ restore_menu_items (Lisp_Object saved)
134 menu_items_inuse = (! NILP (menu_items) ? Qt : Qnil); 134 menu_items_inuse = (! NILP (menu_items) ? Qt : Qnil);
135 menu_items_allocated = (VECTORP (menu_items) ? ASIZE (menu_items) : 0); 135 menu_items_allocated = (VECTORP (menu_items) ? ASIZE (menu_items) : 0);
136 saved = XCDR (saved); 136 saved = XCDR (saved);
137 menu_items_used = XINT (XCAR (saved)); 137 menu_items_used = XFIXNUM (XCAR (saved));
138 saved = XCDR (saved); 138 saved = XCDR (saved);
139 menu_items_n_panes = XINT (XCAR (saved)); 139 menu_items_n_panes = XFIXNUM (XCAR (saved));
140 saved = XCDR (saved); 140 saved = XCDR (saved);
141 menu_items_submenu_depth = XINT (XCAR (saved)); 141 menu_items_submenu_depth = XFIXNUM (XCAR (saved));
142} 142}
143 143
144/* Push the whole state of menu_items processing onto the specpdl. 144/* Push the whole state of menu_items processing onto the specpdl.
@@ -532,7 +532,7 @@ parse_single_submenu (Lisp_Object item_key, Lisp_Object item_name,
532 USE_SAFE_ALLOCA; 532 USE_SAFE_ALLOCA;
533 533
534 length = Flength (maps); 534 length = Flength (maps);
535 len = XINT (length); 535 len = XFIXNUM (length);
536 536
537 /* Convert the list MAPS into a vector MAPVEC. */ 537 /* Convert the list MAPS into a vector MAPVEC. */
538 SAFE_ALLOCA_LISP (mapvec, len); 538 SAFE_ALLOCA_LISP (mapvec, len);
@@ -1079,7 +1079,7 @@ into menu items. */)
1079 if (!FRAME_LIVE_P (f)) 1079 if (!FRAME_LIVE_P (f))
1080 return Qnil; 1080 return Qnil;
1081 1081
1082 pixel_to_glyph_coords (f, XINT (x), XINT (y), &col, &row, NULL, 1); 1082 pixel_to_glyph_coords (f, XFIXNUM (x), XFIXNUM (y), &col, &row, NULL, 1);
1083 if (0 <= row && row < FRAME_MENU_BAR_LINES (f)) 1083 if (0 <= row && row < FRAME_MENU_BAR_LINES (f))
1084 { 1084 {
1085 Lisp_Object items, item; 1085 Lisp_Object items, item;
@@ -1099,10 +1099,10 @@ into menu items. */)
1099 pos = AREF (items, i + 3); 1099 pos = AREF (items, i + 3);
1100 if (NILP (str)) 1100 if (NILP (str))
1101 return item; 1101 return item;
1102 if (XINT (pos) <= col 1102 if (XFIXNUM (pos) <= col
1103 /* We use <= so the blank between 2 items on a TTY is 1103 /* We use <= so the blank between 2 items on a TTY is
1104 considered part of the previous item. */ 1104 considered part of the previous item. */
1105 && col <= XINT (pos) + menu_item_width (SDATA (str))) 1105 && col <= XFIXNUM (pos) + menu_item_width (SDATA (str)))
1106 { 1106 {
1107 item = AREF (items, i); 1107 item = AREF (items, i);
1108 return item; 1108 return item;
@@ -1268,8 +1268,8 @@ x_popup_menu_1 (Lisp_Object position, Lisp_Object menu)
1268 ? (EMACS_INT) INT_MIN - ypos 1268 ? (EMACS_INT) INT_MIN - ypos
1269 : MOST_NEGATIVE_FIXNUM), 1269 : MOST_NEGATIVE_FIXNUM),
1270 INT_MAX - ypos); 1270 INT_MAX - ypos);
1271 xpos += XINT (x); 1271 xpos += XFIXNUM (x);
1272 ypos += XINT (y); 1272 ypos += XFIXNUM (y);
1273 1273
1274 XSETFRAME (Vmenu_updating_frame, f); 1274 XSETFRAME (Vmenu_updating_frame, f);
1275 } 1275 }
@@ -1309,7 +1309,7 @@ x_popup_menu_1 (Lisp_Object position, Lisp_Object menu)
1309 else if (CONSP (menu) && KEYMAPP (XCAR (menu))) 1309 else if (CONSP (menu) && KEYMAPP (XCAR (menu)))
1310 { 1310 {
1311 /* We were given a list of keymaps. */ 1311 /* We were given a list of keymaps. */
1312 EMACS_INT nmaps = XFASTINT (Flength (menu)); 1312 EMACS_INT nmaps = XFIXNAT (Flength (menu));
1313 Lisp_Object *maps; 1313 Lisp_Object *maps;
1314 ptrdiff_t i; 1314 ptrdiff_t i;
1315 USE_SAFE_ALLOCA; 1315 USE_SAFE_ALLOCA;