From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 21 May 2002 21:35:49 +0000 (+0000)
Subject: * w32fns.c (enum_font_maybe_add_to_list): Use XCDR_AS_LVALUE for
X-Git-Tag: ttn-vms-21-2-B4~14924
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b65564c097462fba57cbc34c2f64e23c46693d0;p=emacs.git

* w32fns.c (enum_font_maybe_add_to_list): Use XCDR_AS_LVALUE for
now, when the address is needed.
---

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++;
 	}
     }