Re: Debugging emacs memory management

[Dima Kogan]

Andreas Schwab <address@hidden> writes:
> Dima Kogan <address@hidden> writes:
>
>> diff --git a/src/font.c b/src/font.c
>> index 8e06532..ca872d0 100644
>> --- a/src/font.c
>> +++ b/src/font.c
>> @@ -3981,7 +3981,15 @@ copy_font_spec (Lisp_Object font)
>>    pcdr = spec->props + FONT_EXTRA_INDEX;
>>    for (tail = AREF (font, FONT_EXTRA_INDEX); CONSP (tail); tail = XCDR 
>> (tail))
>>      if (!EQ (XCAR (XCAR (tail)), QCfont_entity))
>> -      *pcdr = Fcons (XCAR (tail), Qnil), pcdr = xcdr_addr (*pcdr);
>> +      {
>> +        if (CONSP (XCAR (tail)))
>
> This better be always true, otherwise XCAR (XCAR (tail)) would be a bug.

It isn't. Without that check I was getting every time.

  *ERROR*: Wrong type argument: listp, "monospace-10"

Surprised me too, and I haven't checked to see what was happening there.
I will look... tomorrow. It's bed time.