Mercurial > emacs
comparison src/bytecode.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 | 68dd71358159 |
| children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
| 105876:c5c76c2da5ee | 105877:21bdda3ded62 |
|---|---|
| 1677 } | 1677 } |
| 1678 | 1678 |
| 1679 void | 1679 void |
| 1680 syms_of_bytecode () | 1680 syms_of_bytecode () |
| 1681 { | 1681 { |
| 1682 Qbytecode = intern ("byte-code"); | 1682 Qbytecode = intern_c_string ("byte-code"); |
| 1683 staticpro (&Qbytecode); | 1683 staticpro (&Qbytecode); |
| 1684 | 1684 |
| 1685 defsubr (&Sbyte_code); | 1685 defsubr (&Sbyte_code); |
| 1686 | 1686 |
| 1687 #ifdef BYTE_CODE_METER | 1687 #ifdef BYTE_CODE_METER |
| 1700 If a symbol has a property named `byte-code-meter' whose value is an | 1700 If a symbol has a property named `byte-code-meter' whose value is an |
| 1701 integer, it is incremented each time that symbol's function is called. */); | 1701 integer, it is incremented each time that symbol's function is called. */); |
| 1702 | 1702 |
| 1703 byte_metering_on = 0; | 1703 byte_metering_on = 0; |
| 1704 Vbyte_code_meter = Fmake_vector (make_number (256), make_number (0)); | 1704 Vbyte_code_meter = Fmake_vector (make_number (256), make_number (0)); |
| 1705 Qbyte_code_meter = intern ("byte-code-meter"); | 1705 Qbyte_code_meter = intern_c_string ("byte-code-meter"); |
| 1706 staticpro (&Qbyte_code_meter); | 1706 staticpro (&Qbyte_code_meter); |
| 1707 { | 1707 { |
| 1708 int i = 256; | 1708 int i = 256; |
| 1709 while (i--) | 1709 while (i--) |
| 1710 XVECTOR (Vbyte_code_meter)->contents[i] = | 1710 XVECTOR (Vbyte_code_meter)->contents[i] = |