# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 971108214 0
# Node ID a9dbff7d41428b5b003f5dbd442c2c4051b6ed72
# Parent  2366f009e5e5240039b71a8000a76dea11f1ac5f
Fix last change.

diff -r 2366f009e5e5 -r a9dbff7d4142 src/msdos.c
--- a/src/msdos.c	Mon Oct 09 16:05:35 2000 +0000
+++ b/src/msdos.c	Mon Oct 09 16:16:54 2000 +0000
@@ -2302,6 +2302,7 @@
   int redraw = 0, fg_set = 0, bg_set = 0;
   unsigned long orig_fg;
   unsigned long orig_bg;
+  extern Lisp_Object Qdefault, QCforeground, QCbackground;
 
   /* If we are creating a new frame, begin with the original screen colors
      used for the initial frame.  */
@@ -2346,7 +2347,6 @@
   /* Now process the alist elements in reverse of specified order.  */
   for (i--; i >= 0; i--)
     {
-      extern Lisp_Object Qdefault, QCforeground, QCbackground;
       Lisp_Object prop, val;
       Lisp_Object frame;
 
@@ -2441,7 +2441,8 @@
 	  FRAME_BACKGROUND_PIXEL (f) = orig_fg;
 	  XSETFRAME (frame, f);
 	  Finternal_set_lisp_face_attribute (Qdefault, QCbackground,
-					     tty_color_name (orig_fg), frame);
+					     tty_color_name (f, orig_fg),
+					     frame);
 	  redraw = 1;
 	}
       if (!bg_set)
@@ -2449,7 +2450,8 @@
 	  FRAME_FOREGROUND_PIXEL (f) = orig_bg;
 	  XSETFRAME (frame, f);
 	  Finternal_set_lisp_face_attribute (Qdefault, QCforeground,
-					     tty_color_name (orig_bg), frame);
+					     tty_color_name (f, orig_bg),
+					     frame);
 	  redraw = 1;
 	}
     }