aboutsummaryrefslogtreecommitdiffstats
path: root/src/xmenu.c
diff options
context:
space:
mode:
authorKen Raeburn1999-09-12 07:05:34 +0000
committerKen Raeburn1999-09-12 07:05:34 +0000
commit8e713be64cb396e4fa30d8a393987b77d6cd99f6 (patch)
tree8ca8beed123bcd05a9849f9a575fbc73ca17edad /src/xmenu.c
parent70949dac51f3e975477e6b1a38cc78625efc4a40 (diff)
downloademacs-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.c20
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, &notbuttons); 428 &pending_maps, notreal, maxdepth, &notbuttons);
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. */