Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
871:34b6b37092c7 | 872:336ffe2bd537 |
---|---|
695 return frame; | 695 return frame; |
696 } | 696 } |
697 #endif | 697 #endif |
698 | 698 |
699 DEFUN ("make-frame-visible", Fmake_frame_visible, Smake_frame_visible, | 699 DEFUN ("make-frame-visible", Fmake_frame_visible, Smake_frame_visible, |
700 1, 1, 0, | 700 0, 1, 0, |
701 "Make the frame FRAME visible (assuming it is an X-window).\n\ | 701 "Make the frame FRAME visible (assuming it is an X-window).\n\ |
702 Also raises the frame so that nothing obscures it.") | 702 Also raises the frame so that nothing obscures it.") |
703 (frame) | 703 (frame) |
704 Lisp_Object frame; | 704 Lisp_Object frame; |
705 { | 705 { |
706 if (NILP (frame)) | |
707 frame = selected_frame; | |
708 | |
706 CHECK_LIVE_FRAME (frame, 0); | 709 CHECK_LIVE_FRAME (frame, 0); |
707 | 710 |
708 if (FRAME_IS_X (XFRAME (frame))) | 711 if (FRAME_IS_X (XFRAME (frame))) |
709 x_make_frame_visible (XFRAME (frame)); | 712 x_make_frame_visible (XFRAME (frame)); |
710 | 713 |
711 return frame; | 714 return frame; |
712 } | 715 } |
713 | 716 |
714 DEFUN ("make-frame-invisible", Fmake_frame_invisible, Smake_frame_invisible, | 717 DEFUN ("make-frame-invisible", Fmake_frame_invisible, Smake_frame_invisible, |
715 1, 1, 0, | 718 0, 1, "", |
716 "Make the frame FRAME invisible (assuming it is an X-window).") | 719 "Make the frame FRAME invisible (assuming it is an X-window).") |
717 (frame) | 720 (frame) |
718 Lisp_Object frame; | 721 Lisp_Object frame; |
719 { | 722 { |
723 if (NILP (frame)) | |
724 frame = selected_frame; | |
725 | |
720 CHECK_LIVE_FRAME (frame, 0); | 726 CHECK_LIVE_FRAME (frame, 0); |
721 | 727 |
722 if (FRAME_IS_X (XFRAME (frame))) | 728 if (FRAME_IS_X (XFRAME (frame))) |
723 x_make_frame_invisible (XFRAME (frame)); | 729 x_make_frame_invisible (XFRAME (frame)); |
724 | 730 |
725 return Qnil; | 731 return Qnil; |
726 } | 732 } |
727 | 733 |
728 DEFUN ("iconify-frame", Ficonify_frame, Siconify_frame, | 734 DEFUN ("iconify-frame", Ficonify_frame, Siconify_frame, |
729 1, 1, 0, | 735 0, 1, "", |
730 "Make the frame FRAME into an icon.") | 736 "Make the frame FRAME into an icon.") |
731 (frame) | 737 (frame) |
732 Lisp_Object frame; | 738 Lisp_Object frame; |
733 { | 739 { |
740 if (NILP (frame)) | |
741 frame = selected_frame; | |
742 | |
734 CHECK_LIVE_FRAME (frame, 0); | 743 CHECK_LIVE_FRAME (frame, 0); |
735 | 744 |
736 if (FRAME_IS_X (XFRAME (frame))) | 745 if (FRAME_IS_X (XFRAME (frame))) |
737 x_iconify_frame (XFRAME (frame)); | 746 x_iconify_frame (XFRAME (frame)); |
738 | 747 |