Mercurial > emacs
changeset 19864:44dcf37ec345
(syms_of_msdos): Intern background-color and
foreground-color, and staticpro them.
(IT_set_frame_parameters): Use Qforeground_color and
Qbackground_color.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 11 Sep 1997 01:27:57 +0000 |
| parents | ad407da635c4 |
| children | 574f61c01920 |
| files | src/msdos.c |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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,