Mercurial > emacs
diff src/frame.c @ 872:336ffe2bd537
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Sat, 25 Jul 1992 00:36:12 +0000 |
parents | 17ccc9d015f5 |
children | cba3f9073641 |
line wrap: on
line diff
--- a/src/frame.c Fri Jul 24 23:48:49 1992 +0000 +++ b/src/frame.c Sat Jul 25 00:36:12 1992 +0000 @@ -697,12 +697,15 @@ #endif DEFUN ("make-frame-visible", Fmake_frame_visible, Smake_frame_visible, - 1, 1, 0, + 0, 1, 0, "Make the frame FRAME visible (assuming it is an X-window).\n\ Also raises the frame so that nothing obscures it.") (frame) Lisp_Object frame; { + if (NILP (frame)) + frame = selected_frame; + CHECK_LIVE_FRAME (frame, 0); if (FRAME_IS_X (XFRAME (frame))) @@ -712,11 +715,14 @@ } DEFUN ("make-frame-invisible", Fmake_frame_invisible, Smake_frame_invisible, - 1, 1, 0, + 0, 1, "", "Make the frame FRAME invisible (assuming it is an X-window).") (frame) Lisp_Object frame; { + if (NILP (frame)) + frame = selected_frame; + CHECK_LIVE_FRAME (frame, 0); if (FRAME_IS_X (XFRAME (frame))) @@ -726,11 +732,14 @@ } DEFUN ("iconify-frame", Ficonify_frame, Siconify_frame, - 1, 1, 0, + 0, 1, "", "Make the frame FRAME into an icon.") (frame) Lisp_Object frame; { + if (NILP (frame)) + frame = selected_frame; + CHECK_LIVE_FRAME (frame, 0); if (FRAME_IS_X (XFRAME (frame)))