Mercurial > emacs

comparison 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
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