From 7500877e4a0bc3cf7731031b75be808d8aadb477 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 27 Jul 1992 20:58:32 +0000 Subject: [PATCH] entered into RCS --- src/frame.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/frame.c b/src/frame.c index 785f59a259..8f261184b6 100644 --- a/src/frame.c +++ b/src/frame.c @@ -704,7 +704,7 @@ Also raises the frame so that nothing obscures it.") Lisp_Object frame; { if (NILP (frame)) - frame = selected_frame; + XSET (frame, Lisp_Frame, selected_frame); CHECK_LIVE_FRAME (frame, 0); @@ -721,7 +721,7 @@ DEFUN ("make-frame-invisible", Fmake_frame_invisible, Smake_frame_invisible, Lisp_Object frame; { if (NILP (frame)) - frame = selected_frame; + XSET (frame, Lisp_Frame, selected_frame); CHECK_LIVE_FRAME (frame, 0); @@ -738,7 +738,7 @@ DEFUN ("iconify-frame", Ficonify_frame, Siconify_frame, Lisp_Object frame; { if (NILP (frame)) - frame = selected_frame; + XSET (frame, Lisp_Frame, selected_frame); CHECK_LIVE_FRAME (frame, 0); -- 2.20.1