From d3f41ff55563551d241407ef640c9984156f87b8 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 16 Oct 2007 15:49:43 +0000 Subject: [PATCH] (Fpurecopy): Set the pvec tag on pseudo vectors. --- src/ChangeLog | 2 ++ src/alloc.c | 5 ++++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 3c275302f9f..6f96f7da7ac 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,7 @@ 2007-10-16 Stefan Monnier + * 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. diff --git a/src/alloc.c b/src/alloc.c index 48857ecff14..c42c27f0333 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -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; -- 2.39.5