Mercurial > emacs
comparison src/w32fns.c @ 85614:9f3a25157e4f
Make `window-system' into a keyboard-local variable (rather than
frame-local as done originally by multi-tty).
* startup.el (window-system): Remove. Don't make it frame-local.
* keyboard.h (struct kboard): Add Vwindow_system.
* keyboard.c (init_kboard): Set a default for Vwindow_system.
(mark_kboards): Mark Vwindow_system.
* dispnew.c (syms_of_display) <window-system>: Declare terminal-local.
(init_display): Don't set the obsolete `window-system' frame-param.
* xterm.c (x_term_init):
* w32term.c (w32_create_terminal):
* term.c (init_tty): Set Vwindow_system.
* macterm.c (mac_create_terminal): Set a keyboard (missing piece of the
multi-tty merge maybe?), copied from w32term.c. Set Vwindow_system.
* xfns.c (Fx_create_frame, x_create_tip_frame):
* w32fns.c (Fx_create_frame, x_create_tip_frame):
* macfns.c (Fx_create_frame):
Don't set the obsolete `window-system' frame-param.
* frame.h (Qwindow_system): Remove.
* frame.c (Qwindow_system): Remove. In `syms_of_frame' as well.
(Fmake_terminal_frame): Don't set obsolete `window-system' frame-param.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 25 Oct 2007 02:38:41 +0000 |
parents | aaef8ce68301 |
children | bb1f44062552 4bc33ffdda1a |
comparison
equal
deleted
inserted
replaced
85613:ae9da278f53b | 85614:9f3a25157e4f |
---|---|
4453 by x_get_arg and friends, now go in the misc. alist of the frame. */ | 4453 by x_get_arg and friends, now go in the misc. alist of the frame. */ |
4454 for (tem = parameters; CONSP (tem); tem = XCDR (tem)) | 4454 for (tem = parameters; CONSP (tem); tem = XCDR (tem)) |
4455 if (CONSP (XCAR (tem)) && !NILP (XCAR (XCAR (tem)))) | 4455 if (CONSP (XCAR (tem)) && !NILP (XCAR (XCAR (tem)))) |
4456 f->param_alist = Fcons (XCAR (tem), f->param_alist); | 4456 f->param_alist = Fcons (XCAR (tem), f->param_alist); |
4457 | 4457 |
4458 store_frame_param (f, Qwindow_system, Qw32); | |
4459 | |
4460 UNGCPRO; | 4458 UNGCPRO; |
4461 | 4459 |
4462 /* Make sure windows on this frame appear in calls to next-window | 4460 /* Make sure windows on this frame appear in calls to next-window |
4463 and similar functions. */ | 4461 and similar functions. */ |
4464 Vwindow_list = Qnil; | 4462 Vwindow_list = Qnil; |
7437 if (!EQ (bg, Fframe_parameter (frame, Qbackground_color))) | 7435 if (!EQ (bg, Fframe_parameter (frame, Qbackground_color))) |
7438 Fmodify_frame_parameters (frame, Fcons (Fcons (Qbackground_color, bg), | 7436 Fmodify_frame_parameters (frame, Fcons (Fcons (Qbackground_color, bg), |
7439 Qnil)); | 7437 Qnil)); |
7440 } | 7438 } |
7441 | 7439 |
7442 Fmodify_frame_parameters (frame, Fcons (Fcons (Qwindow_system, Qw32), Qnil)); | |
7443 | |
7444 f->no_split = 1; | 7440 f->no_split = 1; |
7445 | 7441 |
7446 UNGCPRO; | 7442 UNGCPRO; |
7447 | 7443 |
7448 /* It is now ok to make the frame official even if we get an error | 7444 /* It is now ok to make the frame official even if we get an error |