diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-11 01:27:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-11 01:27:57 +0000 |
| commit | 4e825084791164ac1dcd51b9fe82ee13292fa4d3 (patch) | |
| tree | 0500ecaf0659dd7d5bf9cbdbdf12931a2a1220c9 /src/msdos.c | |
| parent | 73f5295803c77b0b4766603061aff401edbfabb3 (diff) | |
| download | emacs-4e825084791164ac1dcd51b9fe82ee13292fa4d3.tar.gz | |
(syms_of_msdos): Intern background-color and
foreground-color, and staticpro them.
(IT_set_frame_parameters): Use Qforeground_color and
Qbackground_color.
Diffstat (limited to 'src/msdos.c')
| -rw-r--r-- | src/msdos.c | 10 |
1 files 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, "<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, |