From 5e7b7c5bda1e59bda842ba8e2381b8b2ec57184a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 10 Jan 1994 22:20:56 +0000 Subject: [PATCH] (Fdelete_frame): Call x_sync. (Fdelete_frame): Do FRAME_SAMPLE_VISIBILITY before testing visibility of a frame. --- src/frame.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/frame.c b/src/frame.c index a400fa4ead..654c9e5c3b 100644 --- a/src/frame.c +++ b/src/frame.c @@ -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 -- 2.20.1