# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1022016941 0
# Node ID 3244cd2850b8156a1a4cfaba44655729229465cd
# Parent  05d77f58ead5ace47ef7d241800960932c0bcd96
* w32fns.c (enum_font_maybe_add_to_list): Use XCDR_AS_LVALUE for
now, when the address is needed.

diff -r 05d77f58ead5 -r 3244cd2850b8 src/w32fns.c
--- a/src/w32fns.c	Tue May 21 21:22:21 2002 +0000
+++ b/src/w32fns.c	Tue May 21 21:35:41 2002 +0000
@@ -7252,7 +7252,7 @@
       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++;
 	}
     }