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;
if (FRAME_X_P (XFRAME (this)))
x_sync (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