Mercurial > emacs

diff src/frame.c @ 872:336ffe2bd537

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** 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)))