diff options
| author | Ken Raeburn | 1999-09-12 07:05:34 +0000 |
|---|---|---|
| committer | Ken Raeburn | 1999-09-12 07:05:34 +0000 |
| commit | 8e713be64cb396e4fa30d8a393987b77d6cd99f6 (patch) | |
| tree | 8ca8beed123bcd05a9849f9a575fbc73ca17edad /src/w32menu.c | |
| parent | 70949dac51f3e975477e6b1a38cc78625efc4a40 (diff) | |
| download | emacs-8e713be64cb396e4fa30d8a393987b77d6cd99f6.tar.gz emacs-8e713be64cb396e4fa30d8a393987b77d6cd99f6.zip | |
Use XCAR and XCDR instead of explicit member references.
Diffstat (limited to 'src/w32menu.c')
| -rw-r--r-- | src/w32menu.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/w32menu.c b/src/w32menu.c index 8adaace306a..aa3ef60d12b 100644 --- a/src/w32menu.c +++ b/src/w32menu.c | |||
| @@ -214,9 +214,9 @@ menubar_id_to_frame (HMENU menu) | |||
| 214 | Lisp_Object tail, frame; | 214 | Lisp_Object tail, frame; |
| 215 | FRAME_PTR f; | 215 | FRAME_PTR f; |
| 216 | 216 | ||
| 217 | for (tail = Vframe_list; GC_CONSP (tail); tail = XCONS (tail)->cdr) | 217 | for (tail = Vframe_list; GC_CONSP (tail); tail = XCDR (tail)) |
| 218 | { | 218 | { |
| 219 | frame = XCONS (tail)->car; | 219 | frame = XCAR (tail); |
| 220 | if (!GC_FRAMEP (frame)) | 220 | if (!GC_FRAMEP (frame)) |
| 221 | continue; | 221 | continue; |
| 222 | f = XFRAME (frame); | 222 | f = XFRAME (frame); |
| @@ -416,14 +416,14 @@ single_keymap_panes (keymap, pane_name, prefix, notreal, maxdepth) | |||
| 416 | notbuttons = menu_items_used; | 416 | notbuttons = menu_items_used; |
| 417 | #endif | 417 | #endif |
| 418 | 418 | ||
| 419 | for (tail = keymap; CONSP (tail); tail = XCONS (tail)->cdr) | 419 | for (tail = keymap; CONSP (tail); tail = XCDR (tail)) |
| 420 | { | 420 | { |
| 421 | GCPRO2 (keymap, pending_maps); | 421 | GCPRO2 (keymap, pending_maps); |
| 422 | /* Look at each key binding, and if it is a menu item add it | 422 | /* Look at each key binding, and if it is a menu item add it |
| 423 | to this menu. */ | 423 | to this menu. */ |
| 424 | item = XCONS (tail)->car; | 424 | item = XCAR (tail); |
| 425 | if (CONSP (item)) | 425 | if (CONSP (item)) |
| 426 | single_menu_item (XCONS (item)->car, XCONS (item)->cdr, | 426 | single_menu_item (XCAR (item), XCDR (item), |
| 427 | &pending_maps, notreal, maxdepth, ¬buttons); | 427 | &pending_maps, notreal, maxdepth, ¬buttons); |
| 428 | else if (VECTORP (item)) | 428 | else if (VECTORP (item)) |
| 429 | { | 429 | { |
| @@ -446,12 +446,12 @@ single_keymap_panes (keymap, pane_name, prefix, notreal, maxdepth) | |||
| 446 | { | 446 | { |
| 447 | Lisp_Object elt, eltcdr, string; | 447 | Lisp_Object elt, eltcdr, string; |
| 448 | elt = Fcar (pending_maps); | 448 | elt = Fcar (pending_maps); |
| 449 | eltcdr = XCONS (elt)->cdr; | 449 | eltcdr = XCDR (elt); |
| 450 | string = XCONS (eltcdr)->car; | 450 | string = XCAR (eltcdr); |
| 451 | /* We no longer discard the @ from the beginning of the string here. | 451 | /* We no longer discard the @ from the beginning of the string here. |
| 452 | Instead, we do this in w32_menu_show. */ | 452 | Instead, we do this in w32_menu_show. */ |
| 453 | single_keymap_panes (Fcar (elt), string, | 453 | single_keymap_panes (Fcar (elt), string, |
| 454 | XCONS (eltcdr)->cdr, notreal, maxdepth - 1); | 454 | XCDR (eltcdr), notreal, maxdepth - 1); |
| 455 | pending_maps = Fcdr (pending_maps); | 455 | pending_maps = Fcdr (pending_maps); |
| 456 | } | 456 | } |
| 457 | } | 457 | } |
| @@ -702,7 +702,7 @@ cached information about equivalent key sequences.") | |||
| 702 | 702 | ||
| 703 | /* Decode the first argument: find the window and the coordinates. */ | 703 | /* Decode the first argument: find the window and the coordinates. */ |
| 704 | if (EQ (position, Qt) | 704 | if (EQ (position, Qt) |
| 705 | || (CONSP (position) && EQ (XCONS (position)->car, Qmenu_bar))) | 705 | || (CONSP (position) && EQ (XCAR (position), Qmenu_bar))) |
| 706 | { | 706 | { |
| 707 | /* Use the mouse's current position. */ | 707 | /* Use the mouse's current position. */ |
| 708 | FRAME_PTR new_f = selected_frame; | 708 | FRAME_PTR new_f = selected_frame; |
| @@ -900,7 +900,7 @@ on the left of the dialog box and all following items on the right.\n\ | |||
| 900 | 900 | ||
| 901 | /* Decode the first argument: find the window or frame to use. */ | 901 | /* Decode the first argument: find the window or frame to use. */ |
| 902 | if (EQ (position, Qt) | 902 | if (EQ (position, Qt) |
| 903 | || (CONSP (position) && EQ (XCONS (position)->car, Qmenu_bar))) | 903 | || (CONSP (position) && EQ (XCAR (position), Qmenu_bar))) |
| 904 | { | 904 | { |
| 905 | #if 0 /* Using the frame the mouse is on may not be right. */ | 905 | #if 0 /* Using the frame the mouse is on may not be right. */ |
| 906 | /* Use the mouse's current position. */ | 906 | /* Use the mouse's current position. */ |