# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 758240456 0
# Node ID e8d95be8bc19525230cb18d907afbee28a4bab2e
# Parent  2b8f405f5103686a076edfa422f2314a3f72889c
(Fdelete_frame): Call x_sync.

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

diff -r 2b8f405f5103 -r e8d95be8bc19 src/frame.c
--- a/src/frame.c	Mon Jan 10 21:30:25 1994 +0000
+++ b/src/frame.c	Mon Jan 10 22:20:56 1994 +0000
@@ -617,7 +617,6 @@
 
   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 @@
 	{
 	  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