aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
authorKaroly Lorentey2004-01-26 21:22:42 +0000
committerKaroly Lorentey2004-01-26 21:22:42 +0000
commit465fc071a1aa48e87f37bff460410eec921eaa53 (patch)
treef7a4de710324c8bfa0c06079259384e8b59d71bb /src/alloc.c
parentd5188e3f1303543ddbe5c230bf93ab6a8fe66de5 (diff)
parent41b867eaceb6bfab6be4ed62a2d4dd9cf1be62e3 (diff)
downloademacs-465fc071a1aa48e87f37bff460410eec921eaa53.tar.gz
emacs-465fc071a1aa48e87f37bff460410eec921eaa53.zip
Merged in changes from CVS HEAD
Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-53 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-54 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-55 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-56 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-70
Diffstat (limited to 'src/alloc.c')
-rw-r--r--src/alloc.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/alloc.c b/src/alloc.c
index 4afcab2c20a..723d664cbe0 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4231,12 +4231,13 @@ Does not copy symbols. Copies strings without text properties. */)
4231 else if (COMPILEDP (obj) || VECTORP (obj)) 4231 else if (COMPILEDP (obj) || VECTORP (obj))
4232 { 4232 {
4233 register struct Lisp_Vector *vec; 4233 register struct Lisp_Vector *vec;
4234 register int i, size; 4234 register int i;
4235 EMACS_INT size;
4235 4236
4236 size = XVECTOR (obj)->size; 4237 size = XVECTOR (obj)->size;
4237 if (size & PSEUDOVECTOR_FLAG) 4238 if (size & PSEUDOVECTOR_FLAG)
4238 size &= PSEUDOVECTOR_SIZE_MASK; 4239 size &= PSEUDOVECTOR_SIZE_MASK;
4239 vec = XVECTOR (make_pure_vector ((EMACS_INT) size)); 4240 vec = XVECTOR (make_pure_vector (size));
4240 for (i = 0; i < size; i++) 4241 for (i = 0; i < size; i++)
4241 vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]); 4242 vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]);
4242 if (COMPILEDP (obj)) 4243 if (COMPILEDP (obj))