From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 10 Jun 1996 20:58:24 +0000 (+0000)
Subject: (init_frame_faces): Build faces for an MSDOS frame like for X frame.
X-Git-Tag: emacs-19.34~479
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=50e3dcf5de907e4915fe99ce28ce69f4ed05323a;p=emacs.git

(init_frame_faces): Build faces for an MSDOS frame like for X frame.
(Fmake_face_internal): Call `ensure_face_ready' for MSDOS frames.
(Fset_face_attribute_internal): Support face attributes for MSDOS frames.
---

diff --git a/src/xfaces.c b/src/xfaces.c
index ced23638926..50a80b6f91c 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -567,7 +567,7 @@ init_frame_faces (f)
     
     result = Qnil;
     FOR_EACH_FRAME (tail, frame)
-      if (FRAME_X_P (XFRAME (frame))
+      if ((FRAME_MSDOS_P (XFRAME (frame)) || FRAME_X_P (XFRAME (frame)))
 	  && XFRAME (frame) != f)
 	{
 	  result = frame;
@@ -1121,7 +1121,7 @@ DEFUN ("make-face-internal", Fmake_face_internal, Smake_face_internal, 1, 1, 0,
 
   FOR_EACH_FRAME (rest, frame)
     {
-      if (FRAME_X_P (XFRAME (frame)))
+      if (FRAME_MSDOS_P (XFRAME (frame)) || FRAME_X_P (XFRAME (frame)))
 	ensure_face_ready (XFRAME (frame), id);
     }
   return Qnil;
@@ -1148,7 +1148,7 @@ DEFUN ("set-face-attribute-internal", Fset_face_attribute_internal,
   if (id < 0 || id >= next_face_id)
     error ("Face id out of range");
 
-  if (! FRAME_X_P (f))
+  if (! FRAME_X_P (f) && ! FRAME_MSDOS_P (f))
     return Qnil;
 
   ensure_face_ready (f, id);