diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-16 15:49:43 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-10-16 15:49:43 +0000 |
| commit | d3f41ff55563551d241407ef640c9984156f87b8 (patch) | |
| tree | 0956b01c2269a755d64e6bbfabd26b9122dced82 /src/alloc.c | |
| parent | 67ee9f6e9121a43a5bad61145b55d785d88bfabf (diff) | |
| download | emacs-d3f41ff55563551d241407ef640c9984156f87b8.tar.gz | |
(Fpurecopy): Set the pvec tag on pseudo vectors.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 5 |
1 files changed, 4 insertions, 1 deletions
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; |