Commit d3f41ff5 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(Fpurecopy): Set the pvec tag on pseudo vectors.

parent 67ee9f6e
2007-10-16 Stefan Monnier <monnier@iro.umontreal.ca>
* alloc.c (Fpurecopy): Set the pvec tag on pseudo vectors.
* lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
(XMISCANY): New macro.
(XMISCTYPE): Use it.
......
......@@ -4966,7 +4966,10 @@ Does not copy symbols. Copies strings without text properties. */)
for (i = 0; i < size; i++)
vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]);
if (COMPILEDP (obj))
XSETCOMPILED (obj, vec);
{
XSETPVECTYPE (vec, PVEC_COMPILED);
XSETCOMPILED (obj, vec);
}
else
XSETVECTOR (obj, vec);
return obj;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment