From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 10 Jan 1994 22:20:56 +0000 (+0000)
Subject: (Fdelete_frame): Call x_sync.
X-Git-Tag: emacs-19.34~10299
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5e7b7c5bda1e59bda842ba8e2381b8b2ec57184a;p=emacs.git

(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 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