2 files changed, 9 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 566073d7ab6..772f3887eab 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-19  Jason Rumney  <jasonr@gnu.org>
+
+        * w32fns.c (Fx_create_frame): Bind redisplay-dont-pause around
+        call to face-set-after-frame-default.
+
 2002-01-18  Richard M. Stallman  <rms@gnu.org>
 
         * dispextern.h (WINDOW_WANTS_MODELINE_P): Check window height > 1. 
diff --git a/src/w32fns.c b/src/w32fns.c
index a2b83c67bd3..45e35267e25 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -5629,6 +5629,10 @@ This function is an internal primitive--use `make-frame' instead.  */)
   x_wm_set_size_hint (f, window_prompting, 0);
   UNBLOCK_INPUT;
 
+  /* Avoid a bug that causes the new frame to never become visible if
+     an echo area message is displayed during the following call1.  */
+  specbind(Qredisplay_dont_pause, Qt);
+
   /* Set up faces after all frame parameters are known.  This call
      also merges in face attributes specified for new frames.  If we
      don't do this, the `menu' face for instance won't have the right