# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739349218 0
# Node ID 657a74662346edf34d1f0953df69e6a009cdb72a
# Parent  f1ca34ddfd8442f235b697d05532766a70e847c4
(Fredraw_display): Redraw all visible frames.
(redraw_garbaged_frames): New function.

diff -r f1ca34ddfd84 -r 657a74662346 src/dispnew.c
--- a/src/dispnew.c	Sun Jun 06 06:46:06 1993 +0000
+++ b/src/dispnew.c	Sun Jun 06 06:46:58 1993 +0000
@@ -201,24 +201,24 @@
   Lisp_Object tail, frame;
 
   FOR_EACH_FRAME (tail, frame)
-    /* If we simply redrew all visible frames, whether or not they
-       were garbaged, then this would make all frames clear and
-       nredraw whenever a new frame is created or an existing frame
-       is de-iconified; those events set the global frame_garbaged
-       flag, to which redisplay responds by calling this function.
-       
-       This used to redraw all visible frames; the only advantage of
-       that approach is that if a frame changes from invisible to
-       visible without setting its garbaged flag, it still gets
-       redisplayed.  But that should never happen; since invisible
-       frames are not updated, they should always be marked as
-       garbaged when they become visible again.  If that doesn't
-       happen, it's a bug in the visibility code, not a bug here.  */
+    if (FRAME_VISIBLE_P (XFRAME (frame)))
+      Fredraw_frame (frame);
+
+  return Qnil;
+}
+
+/* This is used when frame_garbaged is set.
+   Redraw the individual frames marked as garbaged.  */
+
+void
+redraw_garbaged_frames ()
+{
+  Lisp_Object tail, frame;
+
+  FOR_EACH_FRAME (tail, frame)
     if (FRAME_VISIBLE_P (XFRAME (frame))
 	&& FRAME_GARBAGED_P (XFRAME (frame)))
       Fredraw_frame (frame);
-
-  return Qnil;
 }