Commit 5e7b7c5b authored by Richard M. Stallman's avatar Richard M. Stallman

(Fdelete_frame): Call x_sync.

(Fdelete_frame): Do FRAME_SAMPLE_VISIBILITY before
testing visibility of a frame.
parent af1d6f09
......@@ -617,7 +617,6 @@ If MINIFRAME is non-nil and not a window, include all frames.")
return prev_frame (frame, miniframe);
}
DEFUN ("delete-frame", Fdelete_frame, Sdelete_frame, 0, 2, "",
"Delete FRAME, permanently eliminating it from use.\n\
......@@ -657,6 +656,14 @@ but if the second optional argument FORCE is non-nil, you may do so.")
{
Lisp_Object this = XCONS (frames)->car;
#ifdef HAVE_X_WINDOWS
if (FRAME_X_P (XFRAME (this)))
{
x_sync (this);
FRAME_SAMPLE_VISIBILITY (XFRAME (this));
}
#endif
if (FRAME_VISIBLE_P (XFRAME (this))
|| FRAME_ICONIFIED_P (XFRAME (this))
/* Allow deleting the terminal frame when at least
......
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