* alloc.c (allocate_other_vector):

* lisp.h (allocate_other_vector): Remove.

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  <monnier@iro.umontreal.ca>
 
+        * 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));