mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-23 07:12:12 -07:00
Code Issues Projects Releases Wiki Activity

* alloc.c (allocate_other_vector):

Browse source 
* lisp.h (allocate_other_vector): Remove.
This commit is contained in:
Stefan Monnier 2007-11-16 21:24:59 +00:00
parent b05b4e2787
commit 6d3f2bb282
3 changed files with 4 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ChangeLog
View file

@ -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

16
src/alloc.c
View file

@ -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'. */)

1
src/lisp.h
View file

@ -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));