# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 873941277 0
# Node ID 44dcf37ec3453612c3e5d02d2c203bdeb3ea6a41
# Parent  ad407da635c456ab0b95cc8ff3c3eab73205929d
(syms_of_msdos): Intern background-color and
foreground-color, and staticpro them.
(IT_set_frame_parameters): Use Qforeground_color and
Qbackground_color.

diff -r ad407da635c4 -r 44dcf37ec345 src/msdos.c
--- a/src/msdos.c	Thu Sep 11 01:20:27 1997 +0000
+++ b/src/msdos.c	Thu Sep 11 01:27:57 1997 +0000
@@ -988,7 +988,7 @@
       Lisp_Object prop = parms[i];
       Lisp_Object val  = values[i];
 
-      if (EQ (prop, intern ("foreground-color")))
+      if (EQ (prop, Qforeground_color))
 	{
 	  unsigned long new_color = load_color (f, val);
 	  if (new_color != ~0)
@@ -999,7 +999,7 @@
 		fprintf (termscript, "<FGCOLOR %lu>\n", new_color);
 	    }
 	}
-      else if (EQ (prop, intern ("background-color")))
+      else if (EQ (prop, Qbackground_color))
 	{
 	  unsigned long new_color = load_color (f, val);
 	  if (new_color != ~0)
@@ -3500,6 +3500,12 @@
   DEFVAR_LISP ("x-bitmap-file-path", &Vx_bitmap_file_path,
     "List of directories to search for bitmap files for X.");
   Vx_bitmap_file_path = decode_env_path ((char *) 0, ".");
+
+  /* The following two are from xfns.c:  */
+  Qbackground_color = intern ("background-color");
+  staticpro (&Qbackground_color);
+  Qforeground_color = intern ("foreground-color");
+  staticpro (&Qforeground_color);
 #endif
 #ifndef subprocesses
   DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes,