Mercurial > emacs
changeset 872:336ffe2bd537
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 25 Jul 1992 00:36:12 +0000 |
| parents | 34b6b37092c7 |
| children | 0abaf590e0ca |
| files | lisp/frame.el lisp/term/x-win.el src/frame.c |
| diffstat | 3 files changed, 13 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Fri Jul 24 23:48:49 1992 +0000 +++ b/lisp/frame.el Sat Jul 25 00:36:12 1992 +0000 @@ -193,22 +193,6 @@ (funcall frame-creation-function parameters)) -;;;; Iconification - -;;; A possible enhancement for the below: if you iconify a surrogate -;;; minibuffer frame, iconify all of its minibuffer's users too; -;;; de-iconify them as a group. This will need to wait until frames -;;; have mapping and unmapping hooks. - -(defun iconify () - "Iconify or deiconify the selected frame." - (interactive) - (let ((frame (selected-frame))) - (if (eq (frame-visible-p frame) t) - (iconify-frame frame) - (make-frame-visible frame)))) - - ;;;; Frame configurations (defun current-frame-configuration ()
--- a/lisp/term/x-win.el Fri Jul 24 23:48:49 1992 +0000 +++ b/lisp/term/x-win.el Sat Jul 25 00:36:12 1992 +0000 @@ -428,7 +428,7 @@ (define-key global-map [begin] 'beginning-of-buffer) (define-key global-map [end] 'end-of-buffer) -(define-key global-map "\C-z" 'iconify) +(define-key global-map "\C-z" 'iconify-frame) ;;; Do the actual X Windows setup here; the above code just defines ;;; functions and variables that we use now.
--- 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)))