* w32fns.c (enum_font_maybe_add_to_list): Use XCDR_AS_LVALUE for

now, when the address is needed.

src/ChangeLog

+2002-05-21  Ken Raeburn  <raeburn@gnu.org>
+
+	* w32fns.c (enum_font_maybe_add_to_list): Use XCDR_AS_LVALUE for
+	now, when the address is needed.
+
 2002-05-21  Colin Walters  <walters@gnu.org>
 
 	* Makefile.in (shortlisp): Add font-core.el.

src/w32fns.c

@@ -7252,7 +7252,7 @@ enum_font_maybe_add_to_list (lpef, logfont, match_charset, width)
       if (NILP (Fmember (font_name, lpef->list)))
 	{
 	  *lpef->tail = Fcons (Fcons (build_string (buf), width), Qnil);
-	  lpef->tail = &(XCDR (*lpef->tail));
+	  lpef->tail = &(XCDR_AS_LVALUE (*lpef->tail));
 	  lpef->numFonts++;
 	}
     }