Mercurial > emacs
comparison src/frame.c @ 105877:21bdda3ded62
* xterm.c (syms_of_xterm):
* xselect.c (syms_of_xselect):
* xmenu.c (syms_of_xmenu):
* xfns.c (syms_of_xfns):
* xfaces.c (syms_of_xfaces):
* xdisp.c (syms_of_xdisp):
* window.c (syms_of_window):
* w32fns.c (syms_of_w32fns):
* undo.c (syms_of_undo):
* textprop.c (syms_of_textprop):
* terminal.c (syms_of_terminal):
* syntax.c (syms_of_syntax):
* sound.c (syms_of_sound):
* search.c (syms_of_search):
* print.c (syms_of_print):
* minibuf.c (syms_of_minibuf):
* macros.c (syms_of_macros):
* keymap.c (syms_of_keymap, initial_define_key)
(initial_define_lispy_key):
* keyboard.c (syms_of_keyboard):
* insdel.c (syms_of_insdel):
* image.c (syms_of_image):
* fringe.c (syms_of_fringe):
* frame.c (syms_of_frame):
* fontset.c (syms_of_fontset):
* fns.c (syms_of_fns):
* fns.c (syms_of_fns):
* fileio.c (syms_of_fileio):
* fileio.c (syms_of_fileio):
* eval.c (syms_of_eval):
* doc.c (syms_of_doc):
* dispnew.c (syms_of_display):
* dired.c (syms_of_dired):
* dbusbind.c (syms_of_dbusbind):
* data.c (syms_of_data):
* composite.c (syms_of_composite):
* coding.c (syms_of_coding):
* cmds.c (syms_of_cmds):
* charset.c (define_charset_internal, syms_of_character):
* ccl.c (syms_of_ccl):
* category.c (syms_of_category, init_category_once):
* casetab.c (syms_of_casetab):
* casefiddle.c (syms_of_casefiddle):
* callint.c (syms_of_callint):
* bytecode.c (syms_of_bytecode):
* buffer.c (keys_of_buffer, syms_of_buffer):
* alloc.c (syms_of_alloc):
* process.c (syms_of_process, init_process):
* lread.c (syms_of_lread, init_obarray):
* font.c (build_style_table):
* emacs.c (syms_of_emacs, main): Replace calls to intern with
intern_c_string, calls to make_pure_string with
make_pure_c_string. Use pure_cons instead of Fcons.
* process.c (socket_options): Make it const.
(set_socket_option, init_process): Use a const pointer.
* lread.c (intern_c_string): New function.
(defvar_kboard, defvar_lisp, defvar_lisp_nopro, defvar_bool)
(defvar_int): Uset it. Make the name const char*.
* font.c (struct table_entry): Remove unused member. Make NAMES
constant.
(weight_table, slant_table, width_table): Make constant.
* emacs.c (struct standard_args): Make name and longname constant.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Fri, 06 Nov 2009 06:50:52 +0000 |
parents | d3531eb1d0d5 |
children | 341a779db1d0 |
comparison
equal
deleted
inserted
replaced
105876:c5c76c2da5ee | 105877:21bdda3ded62 |
---|---|
4403 ***********************************************************************/ | 4403 ***********************************************************************/ |
4404 | 4404 |
4405 void | 4405 void |
4406 syms_of_frame () | 4406 syms_of_frame () |
4407 { | 4407 { |
4408 Qframep = intern ("framep"); | 4408 Qframep = intern_c_string ("framep"); |
4409 staticpro (&Qframep); | 4409 staticpro (&Qframep); |
4410 Qframe_live_p = intern ("frame-live-p"); | 4410 Qframe_live_p = intern_c_string ("frame-live-p"); |
4411 staticpro (&Qframe_live_p); | 4411 staticpro (&Qframe_live_p); |
4412 Qexplicit_name = intern ("explicit-name"); | 4412 Qexplicit_name = intern_c_string ("explicit-name"); |
4413 staticpro (&Qexplicit_name); | 4413 staticpro (&Qexplicit_name); |
4414 Qheight = intern ("height"); | 4414 Qheight = intern_c_string ("height"); |
4415 staticpro (&Qheight); | 4415 staticpro (&Qheight); |
4416 Qicon = intern ("icon"); | 4416 Qicon = intern_c_string ("icon"); |
4417 staticpro (&Qicon); | 4417 staticpro (&Qicon); |
4418 Qminibuffer = intern ("minibuffer"); | 4418 Qminibuffer = intern_c_string ("minibuffer"); |
4419 staticpro (&Qminibuffer); | 4419 staticpro (&Qminibuffer); |
4420 Qmodeline = intern ("modeline"); | 4420 Qmodeline = intern_c_string ("modeline"); |
4421 staticpro (&Qmodeline); | 4421 staticpro (&Qmodeline); |
4422 Qonly = intern ("only"); | 4422 Qonly = intern_c_string ("only"); |
4423 staticpro (&Qonly); | 4423 staticpro (&Qonly); |
4424 Qwidth = intern ("width"); | 4424 Qwidth = intern_c_string ("width"); |
4425 staticpro (&Qwidth); | 4425 staticpro (&Qwidth); |
4426 Qgeometry = intern ("geometry"); | 4426 Qgeometry = intern_c_string ("geometry"); |
4427 staticpro (&Qgeometry); | 4427 staticpro (&Qgeometry); |
4428 Qicon_left = intern ("icon-left"); | 4428 Qicon_left = intern_c_string ("icon-left"); |
4429 staticpro (&Qicon_left); | 4429 staticpro (&Qicon_left); |
4430 Qicon_top = intern ("icon-top"); | 4430 Qicon_top = intern_c_string ("icon-top"); |
4431 staticpro (&Qicon_top); | 4431 staticpro (&Qicon_top); |
4432 Qleft = intern ("left"); | 4432 Qleft = intern_c_string ("left"); |
4433 staticpro (&Qleft); | 4433 staticpro (&Qleft); |
4434 Qright = intern ("right"); | 4434 Qright = intern_c_string ("right"); |
4435 staticpro (&Qright); | 4435 staticpro (&Qright); |
4436 Quser_position = intern ("user-position"); | 4436 Quser_position = intern_c_string ("user-position"); |
4437 staticpro (&Quser_position); | 4437 staticpro (&Quser_position); |
4438 Quser_size = intern ("user-size"); | 4438 Quser_size = intern_c_string ("user-size"); |
4439 staticpro (&Quser_size); | 4439 staticpro (&Quser_size); |
4440 Qwindow_id = intern ("window-id"); | 4440 Qwindow_id = intern_c_string ("window-id"); |
4441 staticpro (&Qwindow_id); | 4441 staticpro (&Qwindow_id); |
4442 #ifdef HAVE_X_WINDOWS | 4442 #ifdef HAVE_X_WINDOWS |
4443 Qouter_window_id = intern ("outer-window-id"); | 4443 Qouter_window_id = intern_c_string ("outer-window-id"); |
4444 staticpro (&Qouter_window_id); | 4444 staticpro (&Qouter_window_id); |
4445 #endif | 4445 #endif |
4446 Qparent_id = intern ("parent-id"); | 4446 Qparent_id = intern_c_string ("parent-id"); |
4447 staticpro (&Qparent_id); | 4447 staticpro (&Qparent_id); |
4448 Qx = intern ("x"); | 4448 Qx = intern_c_string ("x"); |
4449 staticpro (&Qx); | 4449 staticpro (&Qx); |
4450 Qw32 = intern ("w32"); | 4450 Qw32 = intern_c_string ("w32"); |
4451 staticpro (&Qw32); | 4451 staticpro (&Qw32); |
4452 Qpc = intern ("pc"); | 4452 Qpc = intern_c_string ("pc"); |
4453 staticpro (&Qpc); | 4453 staticpro (&Qpc); |
4454 Qmac = intern ("mac"); | 4454 Qmac = intern_c_string ("mac"); |
4455 staticpro (&Qmac); | 4455 staticpro (&Qmac); |
4456 Qns = intern ("ns"); | 4456 Qns = intern_c_string ("ns"); |
4457 staticpro (&Qns); | 4457 staticpro (&Qns); |
4458 Qvisible = intern ("visible"); | 4458 Qvisible = intern_c_string ("visible"); |
4459 staticpro (&Qvisible); | 4459 staticpro (&Qvisible); |
4460 Qbuffer_predicate = intern ("buffer-predicate"); | 4460 Qbuffer_predicate = intern_c_string ("buffer-predicate"); |
4461 staticpro (&Qbuffer_predicate); | 4461 staticpro (&Qbuffer_predicate); |
4462 Qbuffer_list = intern ("buffer-list"); | 4462 Qbuffer_list = intern_c_string ("buffer-list"); |
4463 staticpro (&Qbuffer_list); | 4463 staticpro (&Qbuffer_list); |
4464 Qburied_buffer_list = intern ("buried-buffer-list"); | 4464 Qburied_buffer_list = intern_c_string ("buried-buffer-list"); |
4465 staticpro (&Qburied_buffer_list); | 4465 staticpro (&Qburied_buffer_list); |
4466 Qdisplay_type = intern ("display-type"); | 4466 Qdisplay_type = intern_c_string ("display-type"); |
4467 staticpro (&Qdisplay_type); | 4467 staticpro (&Qdisplay_type); |
4468 Qbackground_mode = intern ("background-mode"); | 4468 Qbackground_mode = intern_c_string ("background-mode"); |
4469 staticpro (&Qbackground_mode); | 4469 staticpro (&Qbackground_mode); |
4470 Qnoelisp = intern ("noelisp"); | 4470 Qnoelisp = intern_c_string ("noelisp"); |
4471 staticpro (&Qnoelisp); | 4471 staticpro (&Qnoelisp); |
4472 Qtty_color_mode = intern ("tty-color-mode"); | 4472 Qtty_color_mode = intern_c_string ("tty-color-mode"); |
4473 staticpro (&Qtty_color_mode); | 4473 staticpro (&Qtty_color_mode); |
4474 Qtty = intern ("tty"); | 4474 Qtty = intern_c_string ("tty"); |
4475 staticpro (&Qtty); | 4475 staticpro (&Qtty); |
4476 Qtty_type = intern ("tty-type"); | 4476 Qtty_type = intern_c_string ("tty-type"); |
4477 staticpro (&Qtty_type); | 4477 staticpro (&Qtty_type); |
4478 | 4478 |
4479 Qface_set_after_frame_default = intern ("face-set-after-frame-default"); | 4479 Qface_set_after_frame_default = intern_c_string ("face-set-after-frame-default"); |
4480 staticpro (&Qface_set_after_frame_default); | 4480 staticpro (&Qface_set_after_frame_default); |
4481 | 4481 |
4482 Qfullwidth = intern ("fullwidth"); | 4482 Qfullwidth = intern_c_string ("fullwidth"); |
4483 staticpro (&Qfullwidth); | 4483 staticpro (&Qfullwidth); |
4484 Qfullheight = intern ("fullheight"); | 4484 Qfullheight = intern_c_string ("fullheight"); |
4485 staticpro (&Qfullheight); | 4485 staticpro (&Qfullheight); |
4486 Qfullboth = intern ("fullboth"); | 4486 Qfullboth = intern_c_string ("fullboth"); |
4487 staticpro (&Qfullboth); | 4487 staticpro (&Qfullboth); |
4488 Qmaximized = intern ("maximized"); | 4488 Qmaximized = intern_c_string ("maximized"); |
4489 staticpro (&Qmaximized); | 4489 staticpro (&Qmaximized); |
4490 Qx_resource_name = intern ("x-resource-name"); | 4490 Qx_resource_name = intern_c_string ("x-resource-name"); |
4491 staticpro (&Qx_resource_name); | 4491 staticpro (&Qx_resource_name); |
4492 | 4492 |
4493 Qx_frame_parameter = intern ("x-frame-parameter"); | 4493 Qx_frame_parameter = intern_c_string ("x-frame-parameter"); |
4494 staticpro (&Qx_frame_parameter); | 4494 staticpro (&Qx_frame_parameter); |
4495 | 4495 |
4496 Qterminal = intern ("terminal"); | 4496 Qterminal = intern_c_string ("terminal"); |
4497 staticpro (&Qterminal); | 4497 staticpro (&Qterminal); |
4498 Qterminal_live_p = intern ("terminal-live-p"); | 4498 Qterminal_live_p = intern_c_string ("terminal-live-p"); |
4499 staticpro (&Qterminal_live_p); | 4499 staticpro (&Qterminal_live_p); |
4500 | 4500 |
4501 #ifdef HAVE_NS | 4501 #ifdef HAVE_NS |
4502 Qns_parse_geometry = intern ("ns-parse-geometry"); | 4502 Qns_parse_geometry = intern_c_string ("ns-parse-geometry"); |
4503 staticpro (&Qns_parse_geometry); | 4503 staticpro (&Qns_parse_geometry); |
4504 #endif | 4504 #endif |
4505 | 4505 |
4506 { | 4506 { |
4507 int i; | 4507 int i; |
4508 | 4508 |
4509 for (i = 0; i < sizeof (frame_parms) / sizeof (frame_parms[0]); i++) | 4509 for (i = 0; i < sizeof (frame_parms) / sizeof (frame_parms[0]); i++) |
4510 { | 4510 { |
4511 Lisp_Object v = intern (frame_parms[i].name); | 4511 Lisp_Object v = intern_c_string (frame_parms[i].name); |
4512 if (frame_parms[i].variable) | 4512 if (frame_parms[i].variable) |
4513 { | 4513 { |
4514 *frame_parms[i].variable = v; | 4514 *frame_parms[i].variable = v; |
4515 staticpro (frame_parms[i].variable); | 4515 staticpro (frame_parms[i].variable); |
4516 } | 4516 } |
4611 Note that functions in this list may be called just before the frame is | 4611 Note that functions in this list may be called just before the frame is |
4612 actually deleted, or some time later (or even both when an earlier function | 4612 actually deleted, or some time later (or even both when an earlier function |
4613 in `delete-frame-functions' (indirectly) calls `delete-frame' | 4613 in `delete-frame-functions' (indirectly) calls `delete-frame' |
4614 recursively). */); | 4614 recursively). */); |
4615 Vdelete_frame_functions = Qnil; | 4615 Vdelete_frame_functions = Qnil; |
4616 Qdelete_frame_functions = intern ("delete-frame-functions"); | 4616 Qdelete_frame_functions = intern_c_string ("delete-frame-functions"); |
4617 staticpro (&Qdelete_frame_functions); | 4617 staticpro (&Qdelete_frame_functions); |
4618 | 4618 |
4619 DEFVAR_KBOARD ("default-minibuffer-frame", Vdefault_minibuffer_frame, | 4619 DEFVAR_KBOARD ("default-minibuffer-frame", Vdefault_minibuffer_frame, |
4620 doc: /* Minibufferless frames use this frame's minibuffer. | 4620 doc: /* Minibufferless frames use this frame's minibuffer. |
4621 | 4621 |