(Fdelete_frame): Call x_sync.

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

diff --git a/src/frame.c b/src/frame.c
index a400fa4eadf7bd94e1ff83234c45929839218c36..654c9e5c3bd2b99e74d3dc556b4d0fe7bfb6ff15 100644 (file)
--- 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);
 }
-
 \f
 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