From 1b65564c097462fba57cbc34c2f64e23c46693d0 Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Tue, 21 May 2002 21:35:49 +0000 Subject: [PATCH] * w32fns.c (enum_font_maybe_add_to_list): Use XCDR_AS_LVALUE for now, when the address is needed. --- src/ChangeLog | 5 +++++ src/w32fns.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * w32fns.c (enum_font_maybe_add_to_list): Use XCDR_AS_LVALUE for + now, when the address is needed. + 2002-05-21 Colin Walters * 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++; } } -- 2.39.5