diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-10-04 12:33:33 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-10-04 12:33:33 +0000 |
| commit | 7f2563920008d87dc3a0b749322c42ceaf3c2554 (patch) | |
| tree | 4008cb0898d74d0a86e31a4eb0320663c9371fd2 /src/xfns.c | |
| parent | 6836f97283736ab04baad41911ede5814793c2ee (diff) | |
| download | emacs-7f2563920008d87dc3a0b749322c42ceaf3c2554.tar.gz | |
(x_set_frame_parameters, x_set_visibility, Fx_create_frame,
x_get_focus_frame): Use new accessor macros instead of calling XSET directly.
Diffstat (limited to 'src/xfns.c')
| -rw-r--r-- | src/xfns.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/xfns.c b/src/xfns.c index a2a86ad2869..c087f87ca27 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -534,7 +534,7 @@ x_set_frame_parameters (f, alist) if (f->display.x->left_pos < 0) left = Fcons (Qplus, Fcons (make_number (f->display.x->left_pos), Qnil)); else - XSET (left, Lisp_Int, f->display.x->left_pos); + XSETINT (left, f->display.x->left_pos); } if (EQ (top, Qunbound)) { @@ -542,14 +542,14 @@ x_set_frame_parameters (f, alist) if (f->display.x->top_pos < 0) top = Fcons (Qplus, Fcons (make_number (f->display.x->top_pos), Qnil)); else - XSET (top, Lisp_Int, f->display.x->top_pos); + XSETINT (top, f->display.x->top_pos); } /* Don't die if just one of these was set. */ if (EQ (width, Qunbound)) - XSET (width, Lisp_Int, FRAME_WIDTH (f)); + XSETINT (width, FRAME_WIDTH (f)); if (EQ (height, Qunbound)) - XSET (height, Lisp_Int, FRAME_HEIGHT (f)); + XSETINT (height, FRAME_HEIGHT (f)); /* Don't set these parameters these unless they've been explicitly specified. The window might be mapped or resized while we're in @@ -564,7 +564,7 @@ x_set_frame_parameters (f, alist) check_frame_size (f, &height, &width); - XSET (frame, Lisp_Frame, f); + XSETFRAME (frame, f); if ((NUMBERP (width) && XINT (width) != FRAME_WIDTH (f)) || (NUMBERP (height) && XINT (height) != FRAME_HEIGHT (f))) @@ -1189,7 +1189,7 @@ x_set_visibility (f, value, oldval) Lisp_Object value, oldval; { Lisp_Object frame; - XSET (frame, Lisp_Frame, f); + XSETFRAME (frame, f); if (NILP (value)) Fmake_frame_invisible (frame, Qt); @@ -2343,7 +2343,7 @@ be shared by the new frame.") specbind (Qx_resource_name, name); } - XSET (frame, Lisp_Frame, f); + XSETFRAME (frame, f); GCPRO1 (frame); f->output_method = output_x_window; @@ -2519,7 +2519,7 @@ x_get_focus_frame () if (! x_focus_frame) return Qnil; - XSET (xfocus, Lisp_Frame, x_focus_frame); + XSETFRAME (xfocus, x_focus_frame); return xfocus; } |