diff options
| author | Jim Blandy <[email protected]> | 1992-07-25 00:36:12 +0000 |
|---|---|---|
| committer | Jim Blandy <[email protected]> | 1992-07-25 00:36:12 +0000 |
| commit | 1aa660887e3bc27a43c4e327373808132b03e152 (patch) | |
| tree | 854dba0c1a141ffc74634a2902dfc64d827581d0 /src/frame.c | |
| parent | d4fbc2d5fa34f5ead3b9e0d77388f20351728e85 (diff) | |
*** empty log message ***
Diffstat (limited to 'src/frame.c')
| -rw-r--r-- | src/frame.c | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/src/frame.c b/src/frame.c index 364b9b2e4a..785f59a259 100644 --- a/src/frame.c +++ b/src/frame.c @@ -697,12 +697,15 @@ DEFUN ("restore-frame-configuration", Frestore_frame_configuration, #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 @@ Also raises the frame so that nothing obscures it.") } 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 ("make-frame-invisible", Fmake_frame_invisible, Smake_frame_invisible, } 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))) |