From 6d3f2bb282810d37331cf050993ea630f8e1f9c2 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 16 Nov 2007 21:24:59 +0000 Subject: [PATCH] * alloc.c (allocate_other_vector): * lisp.h (allocate_other_vector): Remove. --- src/ChangeLog | 4 ++++ src/alloc.c | 16 ---------------- src/lisp.h | 1 - 3 files changed, 4 insertions(+), 17 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index c0d55b6ca04..e1f5be9c0cf 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,8 @@ 2007-11-16 Stefan Monnier + * alloc.c (allocate_other_vector): + * lisp.h (allocate_other_vector): Remove. + * window.c (struct save_window_data): Move non-lisp data to the end and make it `int' rather than Lisp_Object. (Fcurrent_window_configuration): Use ALLOCATE_PSEUDOVECTOR. @@ -29,6 +32,7 @@ * alloc.c (ALLOCATE_PSEUDOVECTOR): Move to lisp.h. (allocate_pseudovector): Make non-static. + * lisp.h (enum pvec_type): New tag PVEC_OTHER. (allocate_pseudovector): Declare. (ALLOCATE_PSEUDOVECTOR): Move from alloc.c diff --git a/src/alloc.c b/src/alloc.c index 52565255a1d..2d87e1806f0 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -3029,22 +3029,6 @@ allocate_process () } -/* Only used for PVEC_WINDOW_CONFIGURATION. */ -struct Lisp_Vector * -allocate_other_vector (len) - EMACS_INT len; -{ - struct Lisp_Vector *v = allocate_vectorlike (len); - EMACS_INT i; - - for (i = 0; i < len; ++i) - v->contents[i] = Qnil; - v->size = len; - - return v; -} - - DEFUN ("make-vector", Fmake_vector, Smake_vector, 2, 2, 0, doc: /* Return a newly created vector of length LENGTH, with each element being INIT. See also the function `vector'. */) diff --git a/src/lisp.h b/src/lisp.h index 0d351e92895..aa160f44593 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -2612,7 +2612,6 @@ extern struct Lisp_Vector *allocate_pseudovector P_ ((int memlen, int lisplen, E ((typ*) \ allocate_pseudovector \ (VECSIZE (typ), PSEUDOVECSIZE (typ, field), tag)) -extern struct Lisp_Vector *allocate_other_vector P_ ((EMACS_INT)); extern struct Lisp_Hash_Table *allocate_hash_table P_ ((void)); extern struct window *allocate_window P_ ((void)); extern struct frame *allocate_frame P_ ((void)); -- 2.39.2