* alloc.c (allocate_other_vector):

* lisp.h (allocate_other_vector): Remove.

diff --git a/src/ChangeLog b/src/ChangeLog
index c0d55b6ca04006a162707ff569777fbfafee4355..e1f5be9c0cf3cf93eebc8615afab5ca491bcfd3a 100644 (file)
--- 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 52565255a1d3a959f19de04dd954a845f130db8a..2d87e1806f0a32e11ae976fa569ef892e31d0ee1 100644 (file)
--- 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 0d351e92895055aba3e0a2feca5269c6c1000734..aa160f4459383c6e0199d2eb768d4040aa335ca4 100644 (file)
--- 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));