Mercurial > emacs
comparison src/w32fns.c @ 45454:3244cd2850b8
* w32fns.c (enum_font_maybe_add_to_list): Use XCDR_AS_LVALUE for
now, when the address is needed.
author | Ken Raeburn <raeburn@raeburn.org> |
---|---|
date | Tue, 21 May 2002 21:35:41 +0000 |
parents | 33a7c706dc9c |
children | 84120e75baa0 |
comparison
equal
deleted
inserted
replaced
45453:05d77f58ead5 | 45454:3244cd2850b8 |
---|---|
7250 bold and italic versions of the font. */ | 7250 bold and italic versions of the font. */ |
7251 Lisp_Object font_name = build_string (buf); | 7251 Lisp_Object font_name = build_string (buf); |
7252 if (NILP (Fmember (font_name, lpef->list))) | 7252 if (NILP (Fmember (font_name, lpef->list))) |
7253 { | 7253 { |
7254 *lpef->tail = Fcons (Fcons (build_string (buf), width), Qnil); | 7254 *lpef->tail = Fcons (Fcons (build_string (buf), width), Qnil); |
7255 lpef->tail = &(XCDR (*lpef->tail)); | 7255 lpef->tail = &(XCDR_AS_LVALUE (*lpef->tail)); |
7256 lpef->numFonts++; | 7256 lpef->numFonts++; |
7257 } | 7257 } |
7258 } | 7258 } |
7259 } | 7259 } |
7260 | 7260 |