(top-level) <Qbackground_color, Qforeground_color>: Make

them extern (they are defined on xfaces.c).
(syms_of_msdos): Don't intern and don't staticpro
Qbackground_color and Qforeground_color.

1 files changed, 4 insertions, 8 deletions

diff --git a/src/msdos.c b/src/msdos.c
index a1113cc4d4c..9939cc5fe7a 100644
--- a/src/msdos.c
+++ b/src/msdos.c
@@ -2098,10 +2098,10 @@ x_set_menu_bar_lines (f, value, oldval)
   set_menu_bar_lines (f, value, oldval);
 }
 
-/* This was copied from xfns.c  */
+/* This was copied from xfaces.c  */
 
-Lisp_Object Qbackground_color;
-Lisp_Object Qforeground_color;
+extern Lisp_Object Qbackground_color;
+extern Lisp_Object Qforeground_color;
 Lisp_Object Qreverse;
 extern Lisp_Object Qtitle;
 
@@ -5229,11 +5229,7 @@ For example, if a block cursor is over a tab, it will be drawn as\n\
 wide as that tab on the display.  (No effect on MS-DOS.)");
   x_stretch_cursor_p = 0;
 
-  /* The following three are from xfns.c:  */
-  Qbackground_color = intern ("background-color");
-  staticpro (&Qbackground_color);
-  Qforeground_color = intern ("foreground-color");
-  staticpro (&Qforeground_color);
+  /* The following two are from xfns.c:  */
   Qbar = intern ("bar");
   staticpro (&Qbar);
   Qcursor_type = intern ("cursor-type");