From 4e825084791164ac1dcd51b9fe82ee13292fa4d3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 11 Sep 1997 01:27:57 +0000 Subject: [PATCH] (syms_of_msdos): Intern background-color and foreground-color, and staticpro them. (IT_set_frame_parameters): Use Qforeground_color and Qbackground_color. --- src/msdos.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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, "\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, -- 2.39.5