aboutsummaryrefslogtreecommitdiffstats
path: root/src/w32term.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/w32term.c
parent70949dac51f3e975477e6b1a38cc78625efc4a40 (diff)
downloademacs-8e713be64cb396e4fa30d8a393987b77d6cd99f6.tar.gz
emacs-8e713be64cb396e4fa30d8a393987b77d6cd99f6.zip
Use XCAR and XCDR instead of explicit member references.
Diffstat (limited to 'src/w32term.c')
-rw-r--r--src/w32term.c20
1 files changed, 10 insertions, 10 deletions
diff --git a/src/w32term.c b/src/w32term.c
index 8b426aeb2b6..ac7a173feb1 100644
--- a/src/w32term.c
+++ b/src/w32term.c
@@ -2588,11 +2588,11 @@ x_window_to_scroll_bar (window_id)
2588 2588
2589 for (tail = Vframe_list; 2589 for (tail = Vframe_list;
2590 XGCTYPE (tail) == Lisp_Cons; 2590 XGCTYPE (tail) == Lisp_Cons;
2591 tail = XCONS (tail)->cdr) 2591 tail = XCDR (tail))
2592 { 2592 {
2593 Lisp_Object frame, bar, condemned; 2593 Lisp_Object frame, bar, condemned;
2594 2594
2595 frame = XCONS (tail)->car; 2595 frame = XCAR (tail);
2596 /* All elements of Vframe_list should be frames. */ 2596 /* All elements of Vframe_list should be frames. */
2597 if (! GC_FRAMEP (frame)) 2597 if (! GC_FRAMEP (frame))
2598 abort (); 2598 abort ();
@@ -3473,7 +3473,7 @@ w32_read_socket (sd, bufp, numchars, expected)
3473 numchars--; 3473 numchars--;
3474 } 3474 }
3475 else if (! NILP(Vframe_list) 3475 else if (! NILP(Vframe_list)
3476 && ! NILP (XCONS (Vframe_list)->cdr)) 3476 && ! NILP (XCDR (Vframe_list)))
3477 /* Force a redisplay sooner or later to update the 3477 /* Force a redisplay sooner or later to update the
3478 frame titles in case this is the second frame. */ 3478 frame titles in case this is the second frame. */
3479 record_asynch_buffer_change (); 3479 record_asynch_buffer_change ();
@@ -4981,7 +4981,7 @@ w32_term_init (display_name, xrm_option, resource_name)
4981 /* Put it on w32_display_name_list as well, to keep them parallel. */ 4981 /* Put it on w32_display_name_list as well, to keep them parallel. */
4982 w32_display_name_list = Fcons (Fcons (display_name, Qnil), 4982 w32_display_name_list = Fcons (Fcons (display_name, Qnil),
4983 w32_display_name_list); 4983 w32_display_name_list);
4984 dpyinfo->name_list_element = XCONS (w32_display_name_list)->car; 4984 dpyinfo->name_list_element = XCAR (w32_display_name_list);
4985 4985
4986 dpyinfo->w32_id_name 4986 dpyinfo->w32_id_name
4987 = (char *) xmalloc (XSTRING (Vinvocation_name)->size 4987 = (char *) xmalloc (XSTRING (Vinvocation_name)->size
@@ -5071,22 +5071,22 @@ x_delete_display (dpyinfo)
5071 /* Discard this display from w32_display_name_list and w32_display_list. 5071 /* Discard this display from w32_display_name_list and w32_display_list.
5072 We can't use Fdelq because that can quit. */ 5072 We can't use Fdelq because that can quit. */
5073 if (! NILP (w32_display_name_list) 5073 if (! NILP (w32_display_name_list)
5074 && EQ (XCONS (w32_display_name_list)->car, dpyinfo->name_list_element)) 5074 && EQ (XCAR (w32_display_name_list), dpyinfo->name_list_element))
5075 w32_display_name_list = XCONS (w32_display_name_list)->cdr; 5075 w32_display_name_list = XCDR (w32_display_name_list);
5076 else 5076 else
5077 { 5077 {
5078 Lisp_Object tail; 5078 Lisp_Object tail;
5079 5079
5080 tail = w32_display_name_list; 5080 tail = w32_display_name_list;
5081 while (CONSP (tail) && CONSP (XCONS (tail)->cdr)) 5081 while (CONSP (tail) && CONSP (XCDR (tail)))
5082 { 5082 {
5083 if (EQ (XCONS (XCONS (tail)->cdr)->car, 5083 if (EQ (XCAR (XCDR (tail)),
5084 dpyinfo->name_list_element)) 5084 dpyinfo->name_list_element))
5085 { 5085 {
5086 XCONS (tail)->cdr = XCONS (XCONS (tail)->cdr)->cdr; 5086 XCDR (tail) = XCDR (XCDR (tail));
5087 break; 5087 break;
5088 } 5088 }
5089 tail = XCONS (tail)->cdr; 5089 tail = XCDR (tail);
5090 } 5090 }
5091 } 5091 }
5092 5092