diff options
Diffstat (limited to 'src/menu.c')
| -rw-r--r-- | src/menu.c | 20 |
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; |