aboutsummaryrefslogtreecommitdiffstats
path: root/src/w32menu.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/w32menu.c
parent70949dac51f3e975477e6b1a38cc78625efc4a40 (diff)
downloademacs-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.c20
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, &notbuttons); 427 &pending_maps, notreal, maxdepth, &notbuttons);
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. */