* w32fns.c (enum_font_maybe_add_to_list): Use XCDR_AS_LVALUE for

now, when the address is needed.

2 files changed, 6 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 1b5fe7d6bcf..6cd3d78d23b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+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.
diff --git a/src/w32fns.c b/src/w32fns.c
index a19aa953f37..6053e1d4ca3 100644
--- a/src/w32fns.c
+++ b/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++;
         }
     }