Re: Debugging emacs memory management

[Andreas Schwab]

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.

Andreas.

-- 
Andreas Schwab, SUSE Labs, address@hidden
GPG Key fingerprint = 0196 BAD8 1CE9 1970 F4BE  1748 E4D4 88E3 0EEA B9D7
"And now for something completely different."