mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 21:50:37 -08:00
Code Issues Projects Releases Wiki Activity

(x_set_frame_parameters, x_set_visibility, Fx_create_frame,

Browse source 
x_get_focus_frame): Use new accessor macros instead of calling XSET directly.
This commit is contained in:
Karl Heuer 1994-10-04 12:33:33 +00:00
parent ac22a6c438
commit 191ed777ea
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/xfns.c
View file

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