Commit 7500877e authored by Jim Blandy's avatar Jim Blandy

entered into RCS

parent b2bb6ec8
...@@ -704,7 +704,7 @@ Also raises the frame so that nothing obscures it.") ...@@ -704,7 +704,7 @@ Also raises the frame so that nothing obscures it.")
Lisp_Object frame; Lisp_Object frame;
{ {
if (NILP (frame)) if (NILP (frame))
frame = selected_frame; XSET (frame, Lisp_Frame, selected_frame);
CHECK_LIVE_FRAME (frame, 0); CHECK_LIVE_FRAME (frame, 0);
...@@ -721,7 +721,7 @@ DEFUN ("make-frame-invisible", Fmake_frame_invisible, Smake_frame_invisible, ...@@ -721,7 +721,7 @@ DEFUN ("make-frame-invisible", Fmake_frame_invisible, Smake_frame_invisible,
Lisp_Object frame; Lisp_Object frame;
{ {
if (NILP (frame)) if (NILP (frame))
frame = selected_frame; XSET (frame, Lisp_Frame, selected_frame);
CHECK_LIVE_FRAME (frame, 0); CHECK_LIVE_FRAME (frame, 0);
...@@ -738,7 +738,7 @@ DEFUN ("iconify-frame", Ficonify_frame, Siconify_frame, ...@@ -738,7 +738,7 @@ DEFUN ("iconify-frame", Ficonify_frame, Siconify_frame,
Lisp_Object frame; Lisp_Object frame;
{ {
if (NILP (frame)) if (NILP (frame))
frame = selected_frame; XSET (frame, Lisp_Frame, selected_frame);
CHECK_LIVE_FRAME (frame, 0); CHECK_LIVE_FRAME (frame, 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