Commit 1aa66088 authored by Jim Blandy's avatar Jim Blandy

*** empty log message ***

parent d4fbc2d5
......@@ -192,22 +192,6 @@ under the X Window System."
(interactive)
(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
......
......@@ -428,7 +428,7 @@ This returns ARGS with the arguments that have been processed removed."
(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.
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment