From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 11 Sep 1997 01:27:57 +0000 (+0000)
Subject: (syms_of_msdos): Intern background-color and
X-Git-Tag: emacs-20.1~84
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e825084791164ac1dcd51b9fe82ee13292fa4d3;p=emacs.git

(syms_of_msdos): Intern background-color and
foreground-color, and staticpro them.
(IT_set_frame_parameters): Use Qforeground_color and
Qbackground_color.
---

diff --git a/src/msdos.c b/src/msdos.c
index c3abf07ada2..ae9e7edfde8 100644
--- a/src/msdos.c
+++ b/src/msdos.c
@@ -988,7 +988,7 @@ IT_set_frame_parameters (f, alist)
       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 @@ IT_set_frame_parameters (f, alist)
 		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 @@ syms_of_msdos ()
   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,