[Emacs-diffs] Changes to emacs/src/alloc.c,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        07/10/16 15:49:44

Index: alloc.c
===================================================================
RCS file: /sources/emacs/emacs/src/alloc.c,v
retrieving revision 1.427
retrieving revision 1.428
diff -u -b -r1.427 -r1.428
--- alloc.c     16 Oct 2007 15:42:58 -0000      1.427
+++ alloc.c     16 Oct 2007 15:49:43 -0000      1.428
@@ -4966,7 +4966,10 @@
       for (i = 0; i < size; i++)
        vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]);
       if (COMPILEDP (obj))
+       {
+         XSETPVECTYPE (vec, PVEC_COMPILED);
        XSETCOMPILED (obj, vec);
+       }
       else
        XSETVECTOR (obj, vec);
       return obj;