From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 16 Oct 2007 15:49:43 +0000 (+0000)
Subject: (Fpurecopy): Set the pvec tag on pseudo vectors.
X-Git-Tag: emacs-pretest-23.0.90~10310
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d3f41ff55563551d241407ef640c9984156f87b8;p=emacs.git

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

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  <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.
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;