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/xmenu.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/xmenu.c')
| -rw-r--r-- | src/xmenu.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/xmenu.c b/src/xmenu.c index 2e8776fb9f8..a671d4a76b6 100644 --- a/src/xmenu.c +++ b/src/xmenu.c | |||
| @@ -211,9 +211,9 @@ menubar_id_to_frame (id) | |||
| 211 | Lisp_Object tail, frame; | 211 | Lisp_Object tail, frame; |
| 212 | FRAME_PTR f; | 212 | FRAME_PTR f; |
| 213 | 213 | ||
| 214 | for (tail = Vframe_list; GC_CONSP (tail); tail = XCONS (tail)->cdr) | 214 | for (tail = Vframe_list; GC_CONSP (tail); tail = XCDR (tail)) |
| 215 | { | 215 | { |
| 216 | frame = XCONS (tail)->car; | 216 | frame = XCAR (tail); |
| 217 | if (!GC_FRAMEP (frame)) | 217 | if (!GC_FRAMEP (frame)) |
| 218 | continue; | 218 | continue; |
| 219 | f = XFRAME (frame); | 219 | f = XFRAME (frame); |
| @@ -417,14 +417,14 @@ single_keymap_panes (keymap, pane_name, prefix, notreal, maxdepth) | |||
| 417 | notbuttons = menu_items_used; | 417 | notbuttons = menu_items_used; |
| 418 | #endif | 418 | #endif |
| 419 | 419 | ||
| 420 | for (tail = keymap; CONSP (tail); tail = XCONS (tail)->cdr) | 420 | for (tail = keymap; CONSP (tail); tail = XCDR (tail)) |
| 421 | { | 421 | { |
| 422 | GCPRO2 (keymap, pending_maps); | 422 | GCPRO2 (keymap, pending_maps); |
| 423 | /* Look at each key binding, and if it is a menu item add it | 423 | /* Look at each key binding, and if it is a menu item add it |
| 424 | to this menu. */ | 424 | to this menu. */ |
| 425 | item = XCONS (tail)->car; | 425 | item = XCAR (tail); |
| 426 | if (CONSP (item)) | 426 | if (CONSP (item)) |
| 427 | single_menu_item (XCONS (item)->car, XCONS (item)->cdr, | 427 | single_menu_item (XCAR (item), XCDR (item), |
| 428 | &pending_maps, notreal, maxdepth, ¬buttons); | 428 | &pending_maps, notreal, maxdepth, ¬buttons); |
| 429 | else if (VECTORP (item)) | 429 | else if (VECTORP (item)) |
| 430 | { | 430 | { |
| @@ -447,12 +447,12 @@ single_keymap_panes (keymap, pane_name, prefix, notreal, maxdepth) | |||
| 447 | { | 447 | { |
| 448 | Lisp_Object elt, eltcdr, string; | 448 | Lisp_Object elt, eltcdr, string; |
| 449 | elt = Fcar (pending_maps); | 449 | elt = Fcar (pending_maps); |
| 450 | eltcdr = XCONS (elt)->cdr; | 450 | eltcdr = XCDR (elt); |
| 451 | string = XCONS (eltcdr)->car; | 451 | string = XCAR (eltcdr); |
| 452 | /* We no longer discard the @ from the beginning of the string here. | 452 | /* We no longer discard the @ from the beginning of the string here. |
| 453 | Instead, we do this in xmenu_show. */ | 453 | Instead, we do this in xmenu_show. */ |
| 454 | single_keymap_panes (Fcar (elt), string, | 454 | single_keymap_panes (Fcar (elt), string, |
| 455 | XCONS (eltcdr)->cdr, notreal, maxdepth - 1); | 455 | XCDR (eltcdr), notreal, maxdepth - 1); |
| 456 | pending_maps = Fcdr (pending_maps); | 456 | pending_maps = Fcdr (pending_maps); |
| 457 | } | 457 | } |
| 458 | } | 458 | } |
| @@ -705,7 +705,7 @@ cached information about equivalent key sequences.") | |||
| 705 | 705 | ||
| 706 | /* Decode the first argument: find the window and the coordinates. */ | 706 | /* Decode the first argument: find the window and the coordinates. */ |
| 707 | if (EQ (position, Qt) | 707 | if (EQ (position, Qt) |
| 708 | || (CONSP (position) && EQ (XCONS (position)->car, Qmenu_bar))) | 708 | || (CONSP (position) && EQ (XCAR (position), Qmenu_bar))) |
| 709 | { | 709 | { |
| 710 | /* Use the mouse's current position. */ | 710 | /* Use the mouse's current position. */ |
| 711 | FRAME_PTR new_f = selected_frame; | 711 | FRAME_PTR new_f = selected_frame; |
| @@ -903,7 +903,7 @@ on the left of the dialog box and all following items on the right.\n\ | |||
| 903 | 903 | ||
| 904 | /* Decode the first argument: find the window or frame to use. */ | 904 | /* Decode the first argument: find the window or frame to use. */ |
| 905 | if (EQ (position, Qt) | 905 | if (EQ (position, Qt) |
| 906 | || (CONSP (position) && EQ (XCONS (position)->car, Qmenu_bar))) | 906 | || (CONSP (position) && EQ (XCAR (position), Qmenu_bar))) |
| 907 | { | 907 | { |
| 908 | #if 0 /* Using the frame the mouse is on may not be right. */ | 908 | #if 0 /* Using the frame the mouse is on may not be right. */ |
| 909 | /* Use the mouse's current position. */ | 909 | /* Use the mouse's current position. */ |