diff options
| author | Karl Heuer | 1994-11-16 05:50:06 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-11-16 05:50:06 +0000 |
| commit | 36af7d69d4467ad79b18c7de5c12b0ed8cc03e8a (patch) | |
| tree | 3943e81cb7c0f7fd63274ea6654a4006be211649 /src | |
| parent | 942252420810bb19aebc420485696723aa9408e3 (diff) | |
| download | emacs-36af7d69d4467ad79b18c7de5c12b0ed8cc03e8a.tar.gz emacs-36af7d69d4467ad79b18c7de5c12b0ed8cc03e8a.zip | |
(make_frame): Use allocate_vectorlike and VECSIZE.
Diffstat (limited to 'src')
| -rw-r--r-- | src/frame.c | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/src/frame.c b/src/frame.c index 6630fa18808..39e9a92bcdc 100644 --- a/src/frame.c +++ b/src/frame.c | |||
| @@ -141,13 +141,15 @@ make_frame (mini_p) | |||
| 141 | register struct frame *f; | 141 | register struct frame *f; |
| 142 | register Lisp_Object root_window; | 142 | register Lisp_Object root_window; |
| 143 | register Lisp_Object mini_window; | 143 | register Lisp_Object mini_window; |
| 144 | 144 | register struct Lisp_Vector *vec; | |
| 145 | frame = Fmake_vector (((sizeof (struct frame) - (sizeof (Lisp_Vector) | 145 | int i; |
| 146 | - sizeof (Lisp_Object))) | 146 | |
| 147 | / sizeof (Lisp_Object)), | 147 | vec = allocate_vectorlike ((EMACS_INT) VECSIZE (struct frame)); |
| 148 | make_number (0)); | 148 | for (i = 0; i < VECSIZE (struct frame); i++) |
| 149 | XSETTYPE (frame, Lisp_Frame); | 149 | XSETFASTINT (vec->contents[i], 0); |
| 150 | f = XFRAME (frame); | 150 | vec->size = VECSIZE (struct frame); |
| 151 | f = (struct frame *)vec; | ||
| 152 | XSETFRAME (frame, f); | ||
| 151 | 153 | ||
| 152 | f->cursor_x = 0; | 154 | f->cursor_x = 0; |
| 153 | f->cursor_y = 0; | 155 | f->cursor_y = 0; |