Commit 36af7d69 authored by Karl Heuer's avatar Karl Heuer

(make_frame): Use allocate_vectorlike and VECSIZE.

parent 94225242
......@@ -141,13 +141,15 @@ make_frame (mini_p)
register struct frame *f;
register Lisp_Object root_window;
register Lisp_Object mini_window;
frame = Fmake_vector (((sizeof (struct frame) - (sizeof (Lisp_Vector)
- sizeof (Lisp_Object)))
/ sizeof (Lisp_Object)),
make_number (0));
XSETTYPE (frame, Lisp_Frame);
f = XFRAME (frame);
register struct Lisp_Vector *vec;
int i;
vec = allocate_vectorlike ((EMACS_INT) VECSIZE (struct frame));
for (i = 0; i < VECSIZE (struct frame); i++)
XSETFASTINT (vec->contents[i], 0);
vec->size = VECSIZE (struct frame);
f = (struct frame *)vec;
XSETFRAME (frame, f);
f->cursor_x = 0;
f->cursor_y = 0;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment