(Fdelete_frame): Call x_sync.

(Fdelete_frame): Do FRAME_SAMPLE_VISIBILITY before
testing visibility of a frame.

1 files changed, 8 insertions, 1 deletions

diff --git a/src/frame.c b/src/frame.c
index a400fa4eadf..654c9e5c3bd 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