remacs
remacs copied to clipboard
Port make-frame-visible
DEFUN ("make-frame-visible", Fmake_frame_visible, Smake_frame_visible,
0, 1, "",
doc: /* Make the frame FRAME visible (assuming it is an X window).
If omitted, FRAME defaults to the currently selected frame. */)
(Lisp_Object frame)
{
struct frame *f = decode_live_frame (frame);
/* I think this should be done with a hook. */
#ifdef HAVE_WINDOW_SYSTEM
if (FRAME_WINDOW_P (f))
x_make_frame_visible (f);
#endif
make_frame_visible_1 (f->root_window);
/* Make menu bar update for the Buffers and Frames menus. */
/* windows_or_buffers_changed = 15; FIXME: Why? */
XSETFRAME (frame, f);
return frame;
}
~Id love to take a crack at porting this function If its not already claimed~
Edit: looks like there is an open PR for this at #1526