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) ...@@ -141,13 +141,15 @@ make_frame (mini_p)
register struct frame *f; register struct frame *f;
register Lisp_Object root_window; register Lisp_Object root_window;
register Lisp_Object mini_window; register Lisp_Object mini_window;
register struct Lisp_Vector *vec;
frame = Fmake_vector (((sizeof (struct frame) - (sizeof (Lisp_Vector) int i;
- sizeof (Lisp_Object)))
/ sizeof (Lisp_Object)), vec = allocate_vectorlike ((EMACS_INT) VECSIZE (struct frame));
make_number (0)); for (i = 0; i < VECSIZE (struct frame); i++)
XSETTYPE (frame, Lisp_Frame); XSETFASTINT (vec->contents[i], 0);
f = XFRAME (frame); vec->size = VECSIZE (struct frame);
f = (struct frame *)vec;
XSETFRAME (frame, f);
f->cursor_x = 0; f->cursor_x = 0;
f->cursor_y = 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