diff src/frame.c @ 5552:e8d95be8bc19

(Fdelete_frame): Call x_sync. (Fdelete_frame): Do FRAME_SAMPLE_VISIBILITY before testing visibility of a frame.
author Richard M. Stallman <rms@gnu.org>
date Mon, 10 Jan 1994 22:20:56 +0000
parents d8d5844c3ba6
children 806e876cacb4
line wrap: on
line diff
--- 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