comparison src/emacs.c @ 4953:304aebb79cd3

function renamings to track names of char typedefs -------------------- ChangeLog entries follow: -------------------- man/ChangeLog addition: 2010-01-27 Ben Wing <ben@xemacs.org> * internals/internals.texi (lrecords): * internals/internals.texi (The DFC API): * internals/internals.texi (Conversion to and from External Data): * internals/internals.texi (Mule-izing Code): * internals/internals.texi (Pervasive changes throughout XEmacs sources): * internals/internals.texi (Ben's README): * internals/internals.texi (Future Work -- Localized Text/Messages): * emodules.texi (Defining Variables): Rename: write_c_string -> write_cistring build_intstring -> build_istring build_string -> build_cistring build_ext_string -> build_extstring make_ext_string -> make_extstring buffer_insert_c_string -> buffer_insert_ascstring intern_int -> intern_istring See comment in src/ChangeLog about this. modules/ChangeLog addition: 2010-01-27 Ben Wing <ben@xemacs.org> * postgresql/postgresql.c (print_pgconn): * postgresql/postgresql.c (print_pgresult): * postgresql/postgresql.c (Fpq_conn_defaults): * postgresql/postgresql.c (Fpq_pgconn): * postgresql/postgresql.c (Fpq_res_status): * postgresql/postgresql.c (Fpq_result_error_message): * postgresql/postgresql.c (Fpq_fname): * postgresql/postgresql.c (Fpq_get_value): * postgresql/postgresql.c (Fpq_cmd_status): * postgresql/postgresql.c (Fpq_cmd_tuples): * postgresql/postgresql.c (Fpq_notifies): * postgresql/postgresql.c (Fpq_get_line): * postgresql/postgresql.c (Fpq_get_line_async): * postgresql/postgresql.c (FROB): * postgresql/postgresql.c (init_postgresql_from_environment): * ldap/eldap.c: * ldap/eldap.c (Fldap_open): * ldap/eldap.c (Fldap_search_basic): * canna/canna_api.c: * canna/canna_api.c (make_euc_string): Rename: write_c_string -> write_cistring build_intstring -> build_istring build_string -> build_cistring build_ext_string -> build_extstring make_ext_string -> make_extstring buffer_insert_c_string -> buffer_insert_ascstring intern_int -> intern_istring See comment in src/ChangeLog about this. src/ChangeLog addition: 2010-01-27 Ben Wing <ben@xemacs.org> * .gdbinit.in.in: * README: * abbrev.c (write_abbrev): * abbrev.c (describe_abbrev): * alloc.c (make_extstring): * alloc.c (build_istring): * alloc.c (build_cistring): * alloc.c (build_ascstring): * alloc.c (build_extstring): * alloc.c (build_msg_istring): * alloc.c (build_defer_istring): * buffer.c (Fgenerate_new_buffer_name): * buffer.c (init_buffer_2): * console-tty.c (tty_init_console): * console-x.c (get_display_arg_connection): * console-x.c (x_perhaps_init_unseen_key_defaults): * database.c (dbm_map): * database.c (dbm_get): * database.c (berkdb_get): * database.c (berkdb_map): * device-gtk.c (FROB_PIXMAP): * device-gtk.c (Fgtk_style_info): * device-msw.c (msprinter_default_printer): * device-msw.c (sync_printer_with_devmode): * device-x.c (coding_system_of_xrm_database): * device-x.c (x_init_device): * device-x.c (signal_if_x_error): * device-x.c (Fx_get_resource): * device-x.c (Fx_server_vendor): * device-x.c (Fx_get_font_path): * dialog-x.c (maybe_run_dbox_text_callback): * doc.c (extract_object_file_name): * doc.c (unparesseuxify_doc_string): * doc.c (get_doc_string): * doc.c (get_object_file_name): * doc.c (Fdocumentation): * doc.c (Fsnarf_documentation): * doc.c (Fsubstitute_command_keys): * editfns.c (init_editfns): * editfns.c (Ftemp_directory): * editfns.c (Fuser_login_name): * editfns.c (Fuser_real_login_name): * editfns.c (Fuser_home_directory): * editfns.c (Fformat_time_string): * editfns.c (Fcurrent_time_string): * editfns.c (Fcurrent_time_zone): * emacs.c: * emacs.c (main_1): * emodules.c (Flist_modules): * emodules.c (emodules_load): * emodules.c (emodules_doc_sym): * emodules.c (vars_of_module): * event-Xt.c (x_has_keysym): * event-gtk.c (emacs_gtk_format_magic_event): * event-gtk.c (dragndrop_data_received): * event-gtk.c (gtk_reset_key_mapping): * event-msw.c (mswindows_dde_callback): * event-msw.c (mswindows_wnd_proc): * faces.c (complex_vars_of_faces): * file-coding.c (find_coding_system): * file-coding.c (setup_eol_coding_systems): * file-coding.c (make_coding_system_1): * file-coding.c (snarf_coding_system): * fileio.c: * fileio.c (lisp_strerror): * fileio.c (Ffile_name_directory): * fileio.c (Ffile_name_as_directory): * fileio.c (Fdirectory_file_name): * fileio.c (if): * fileio.c (Ffile_symlink_p): * fileio.c (Fencrypt_string): * fileio.c (Fdecrypt_string): * filelock.c (lock_file): * filelock.c (Ffile_locked_p): * floatfns.c (matherr): * font-mgr.c (build_fcapi_string): * font-mgr.c (make_xlfd_font_regexp): * frame-msw.c (mswindows_window_id): * frame-msw.c (mswindows_frame_property): * frame-x.c: * frame-x.c (color_to_string): * frame-x.c (maybe_set_frame_title_format): * frame-x.c (x_cde_transfer_callback): * frame-x.c (Fx_window_id): * glade.c (connector): * glade.c (Fglade_xml_textdomain): * glade.c (syms_of_glade): * glyphs-eimage.c (jpeg_instantiate): * glyphs-eimage.c (png_instantiate): * glyphs-eimage.c (tiff_instantiate): * glyphs-gtk.c (font_instantiate): * glyphs-gtk.c (BUILD_GLYPH_INST): * glyphs-x.c (x_locate_pixmap_file): * glyphs-x.c (font_instantiate): * glyphs-x.c (x_widget_property): * glyphs-x.c (BUILD_GLYPH_INST): * glyphs.c (print_image_instance): * glyphs.c (bitmap_to_lisp_data): * glyphs.c (pixmap_to_lisp_data): * gpmevent.c (turn_off_gpm): * gpmevent.c (Fgpm_enabled_p): * gpmevent.c (Fgpm_enable): * gtk-glue.c (__make_string_mapper): * gtk-glue.c (xemacs_gtklist_to_list): * gtk-xemacs.c (FROB_FACE): * gtk-xemacs.c (xemacs_gtk_convert_color): * hpplay.c (player_error_internal): * hpplay.c (myHandler): * insdel.c (buffer_insert_ascstring_1): * insdel.h: * insdel.h (buffer_insert_ascstring): * intl.c (Fcurrent_locale): * intl.c (Fset_current_locale): * keymap.c (make_key_description): * keymap.c (Ftext_char_description): * keymap.c (describe_command): * keymap.c (describe_map): * lisp.h: * lread.c: * lread.c (locate_file_in_directory_mapper): * lread.c (locate_file_construct_suffixed_files_mapper): * mule-charset.c (Fmake_charset): * nt.c (Fmswindows_short_file_name): * nt.c (Fmswindows_long_file_name): * objects-gtk.c (__get_gtk_font_truename): * objects-gtk.c (__gtk_font_list_internal): * objects-msw.c (font_enum_callback_2): * objects-msw.c (create_hfont_from_font_spec): * objects-msw.c (mswindows_font_list): * objects-msw.c (mswindows_font_spec_matches_charset_stage_2): * objects-tty.c (tty_initialize_font_instance): * objects-x.c (x_font_truename): * objects-x.c (x_font_instance_truename): * objects-x.c (x_font_instance_properties): * objects-x.c (x_font_list): * print.c (write_cistring): * print.c (print_vector_internal): * print.c (print_cons): * process-nt.c (nt_canonicalize_host_name): * process-unix.c (unix_create_process): * process-unix.c (unix_canonicalize_host_name): * process.c (status_message): * process.c (status_notify): * process.c (init_xemacs_process): * process.c (syms_of_process): * redisplay-tty.c (term_get_fkeys_1): * redisplay-tty.c (CONDITIONAL_REASSIGN): * search.c (compile_pattern_1): * select-common.h (selection_data_to_lisp_data): * select-gtk.c (atom_to_symbol): * select-gtk.c (PROCESSING_GTK_CODE): * select-msw.c (mswindows_get_foreign_selection): * select-x.c (x_atom_to_symbol): * select-x.c (Fx_get_cutbuffer_internal): * symbols.c (intern_istring): * symbols.c (intern): * symbols.c (intern_converting_underscores_to_dashes): * symbols.c (Fintern): * sysdep.c (init_system_name): * sysdll.c (dll_error): * sysdll.c (dll_open): * syswindows.h: * syswindows.h (build_tstr_string): * tests.c (DFC_CHECK_LENGTH): * tests.c (DFC_CHECK_CONTENT): * tests.c (DFC_RESULT_PASS): * tests.c (Ftest_data_format_conversion): * text.c: * text.c (new_dfc_convert_now_damn_it): * text.h: * text.h (build_wext_string): * tooltalk.c (tt_build_c_string): * tooltalk.c (Ftooltalk_default_procid): * tooltalk.c (Ftooltalk_default_session): * tooltalk.c (init_tooltalk): * ui-byhand.c (Fgtk_clist_get_text): * ui-byhand.c (Fgtk_clist_get_pixtext): * ui-byhand.c (Fgtk_label_get): * ui-byhand.c (Fgtk_notebook_query_tab_label_packing): * ui-gtk.c (emacs_gtk_object_printer): * ui-gtk.c (emacs_gtk_boxed_printer): * ui-gtk.c (gtk_type_to_lisp): * ui-gtk.c (symbol_to_enum): * ui-gtk.c (enum_to_symbol): * unexaix.c (report_error): * unexaix.c (ERROR0): * unexec.c (report_error): * unexec.c (ERROR0): * unicode.c (unicode_to_ichar): * win32.c (tstr_to_local_file_format): * win32.c (Fmswindows_cygwin_to_win32_path): * win32.c (struct read_link_hash): * xemacs.def.in.in: Rename: write_c_string -> write_cistring build_intstring -> build_istring build_string -> build_cistring build_ext_string -> build_extstring make_ext_string -> make_extstring buffer_insert_c_string -> buffer_insert_ascstring intern_int -> intern_istring These functions have been renamed so that the naming harmonizes with the typedefs for strings: `cistring' along with CIbyte *, `istring' along with Ibyte *, `extstring' along with Extbyte *, `ascstring' along with Ascbyte *. Also make buffer_insert_ascstring take Ascbyte * and assert that its argument is ASCII.
author Ben Wing <ben@xemacs.org>
date Wed, 27 Jan 2010 00:35:36 -0600
parents 19a72041c5ed
children cbe181529c34
comparison
equal deleted inserted replaced
4952:19a72041c5ed 4953:304aebb79cd3
2008 the symbol isn't referenced anywhere else in the initialization 2008 the symbol isn't referenced anywhere else in the initialization
2009 code 2009 code
2010 -- Fset() on a symbol that is unbound 2010 -- Fset() on a symbol that is unbound
2011 -- Any of the object-creating functions in alloc.c: e.g. 2011 -- Any of the object-creating functions in alloc.c: e.g.
2012 - make_string() 2012 - make_string()
2013 - build_intstring() 2013 - build_istring()
2014 - build_string() 2014 - build_cistring()
2015 - build_ascstring() 2015 - build_ascstring()
2016 - make_vector() 2016 - make_vector()
2017 - make_int() 2017 - make_int()
2018 - make_char() 2018 - make_char()
2019 - make_extent() 2019 - make_extent()
2631 { 2631 {
2632 Vinvocation_name = Fcar (Vcommand_line_args); 2632 Vinvocation_name = Fcar (Vcommand_line_args);
2633 if (XSTRING_DATA (Vinvocation_name)[0] == '-') 2633 if (XSTRING_DATA (Vinvocation_name)[0] == '-')
2634 { 2634 {
2635 /* XEmacs as a login shell, oh goody! */ 2635 /* XEmacs as a login shell, oh goody! */
2636 Vinvocation_name = build_intstring (egetenv ("SHELL")); 2636 Vinvocation_name = build_istring (egetenv ("SHELL"));
2637 } 2637 }
2638 Vinvocation_directory = Vinvocation_name; 2638 Vinvocation_directory = Vinvocation_name;
2639 2639
2640 if (!NILP (Ffile_name_directory (Vinvocation_name))) 2640 if (!NILP (Ffile_name_directory (Vinvocation_name)))
2641 { 2641 {
4475 DEFVAR_LISP ("emacs-program-name", &Vemacs_program_name /* 4475 DEFVAR_LISP ("emacs-program-name", &Vemacs_program_name /*
4476 *Name of the Emacs variant. 4476 *Name of the Emacs variant.
4477 For example, this may be \"xemacs\" or \"infodock\". 4477 For example, this may be \"xemacs\" or \"infodock\".
4478 This is mainly meant for use in path searching. 4478 This is mainly meant for use in path searching.
4479 */ ); 4479 */ );
4480 Vemacs_program_name = build_ext_string (PATH_PROGNAME, Qfile_name); 4480 Vemacs_program_name = build_extstring (PATH_PROGNAME, Qfile_name);
4481 4481
4482 DEFVAR_LISP ("emacs-program-version", &Vemacs_program_version /* 4482 DEFVAR_LISP ("emacs-program-version", &Vemacs_program_version /*
4483 *Version of the Emacs variant. 4483 *Version of the Emacs variant.
4484 This typically has the form NN.NN-bNN. 4484 This typically has the form NN.NN-bNN.
4485 This is mainly meant for use in path searching. 4485 This is mainly meant for use in path searching.
4486 */ ); 4486 */ );
4487 Vemacs_program_version = build_ext_string (PATH_VERSION, Qfile_name); 4487 Vemacs_program_version = build_extstring (PATH_VERSION, Qfile_name);
4488 4488
4489 DEFVAR_LISP ("exec-path", &Vexec_path /* 4489 DEFVAR_LISP ("exec-path", &Vexec_path /*
4490 *List of directories to search programs to run in subprocesses. 4490 *List of directories to search programs to run in subprocesses.
4491 Each element is a string (directory name) or nil (try default directory). 4491 Each element is a string (directory name) or nil (try default directory).
4492 */ ); 4492 */ );
4502 For internal use by the build procedure only. 4502 For internal use by the build procedure only.
4503 configure's idea of what `exec-directory' will be. 4503 configure's idea of what `exec-directory' will be.
4504 */ ); 4504 */ );
4505 #ifdef PATH_EXEC 4505 #ifdef PATH_EXEC
4506 Vconfigure_exec_directory = Ffile_name_as_directory 4506 Vconfigure_exec_directory = Ffile_name_as_directory
4507 (build_ext_string (PATH_EXEC, Qfile_name)); 4507 (build_extstring (PATH_EXEC, Qfile_name));
4508 #else 4508 #else
4509 Vconfigure_exec_directory = Qnil; 4509 Vconfigure_exec_directory = Qnil;
4510 #endif 4510 #endif
4511 4511
4512 DEFVAR_LISP ("lisp-directory", &Vlisp_directory /* 4512 DEFVAR_LISP ("lisp-directory", &Vlisp_directory /*
4518 For internal use by the build procedure only. 4518 For internal use by the build procedure only.
4519 configure's idea of what `lisp-directory' will be. 4519 configure's idea of what `lisp-directory' will be.
4520 */ ); 4520 */ );
4521 #ifdef PATH_LOADSEARCH 4521 #ifdef PATH_LOADSEARCH
4522 Vconfigure_lisp_directory = Ffile_name_as_directory 4522 Vconfigure_lisp_directory = Ffile_name_as_directory
4523 (build_ext_string (PATH_LOADSEARCH, Qfile_name)); 4523 (build_extstring (PATH_LOADSEARCH, Qfile_name));
4524 #else 4524 #else
4525 Vconfigure_lisp_directory = Qnil; 4525 Vconfigure_lisp_directory = Qnil;
4526 #endif 4526 #endif
4527 4527
4528 DEFVAR_LISP ("mule-lisp-directory", &Vmule_lisp_directory /* 4528 DEFVAR_LISP ("mule-lisp-directory", &Vmule_lisp_directory /*
4534 For internal use by the build procedure only. 4534 For internal use by the build procedure only.
4535 configure's idea of what `mule-lisp-directory' will be. 4535 configure's idea of what `mule-lisp-directory' will be.
4536 */ ); 4536 */ );
4537 #ifdef PATH_MULELOADSEARCH 4537 #ifdef PATH_MULELOADSEARCH
4538 Vconfigure_mule_lisp_directory = Ffile_name_as_directory 4538 Vconfigure_mule_lisp_directory = Ffile_name_as_directory
4539 (build_ext_string (PATH_MULELOADSEARCH, Qfile_name); 4539 (build_extstring (PATH_MULELOADSEARCH, Qfile_name);
4540 #else 4540 #else
4541 Vconfigure_mule_lisp_directory = Qnil; 4541 Vconfigure_mule_lisp_directory = Qnil;
4542 #endif 4542 #endif
4543 4543
4544 DEFVAR_LISP ("module-directory", &Vmodule_directory /* 4544 DEFVAR_LISP ("module-directory", &Vmodule_directory /*
4550 For internal use by the build procedure only. 4550 For internal use by the build procedure only.
4551 configure's idea of what `module-directory' will be. 4551 configure's idea of what `module-directory' will be.
4552 */ ); 4552 */ );
4553 #ifdef PATH_MODULESEARCH 4553 #ifdef PATH_MODULESEARCH
4554 Vconfigure_module_directory = Ffile_name_as_directory 4554 Vconfigure_module_directory = Ffile_name_as_directory
4555 (build_ext_string (PATH_MODULESEARCH, Qfile_name)); 4555 (build_extstring (PATH_MODULESEARCH, Qfile_name));
4556 #else 4556 #else
4557 Vconfigure_module_directory = Qnil; 4557 Vconfigure_module_directory = Qnil;
4558 #endif 4558 #endif
4559 4559
4560 DEFVAR_LISP ("configure-early-package-directories", &Vconfigure_early_package_directories /* 4560 DEFVAR_LISP ("configure-early-package-directories", &Vconfigure_early_package_directories /*
4610 For internal use by the build procedure only. 4610 For internal use by the build procedure only.
4611 configure's idea of what `data-directory' will be. 4611 configure's idea of what `data-directory' will be.
4612 */ ); 4612 */ );
4613 #ifdef PATH_DATA 4613 #ifdef PATH_DATA
4614 Vconfigure_data_directory = Ffile_name_as_directory 4614 Vconfigure_data_directory = Ffile_name_as_directory
4615 (build_ext_string (PATH_DATA, Qfile_name)); 4615 (build_extstring (PATH_DATA, Qfile_name));
4616 #else 4616 #else
4617 Vconfigure_data_directory = Qnil; 4617 Vconfigure_data_directory = Qnil;
4618 #endif 4618 #endif
4619 4619
4620 DEFVAR_LISP ("data-directory-list", &Vdata_directory_list /* 4620 DEFVAR_LISP ("data-directory-list", &Vdata_directory_list /*
4632 For internal use by the build procedure only. 4632 For internal use by the build procedure only.
4633 configure's idea of what `site-directory' will be. 4633 configure's idea of what `site-directory' will be.
4634 */ ); 4634 */ );
4635 #ifdef PATH_SITE 4635 #ifdef PATH_SITE
4636 Vconfigure_site_directory = Ffile_name_as_directory 4636 Vconfigure_site_directory = Ffile_name_as_directory
4637 (build_ext_string (PATH_SITE, Qfile_name)); 4637 (build_extstring (PATH_SITE, Qfile_name));
4638 #else 4638 #else
4639 Vconfigure_site_directory = Qnil; 4639 Vconfigure_site_directory = Qnil;
4640 #endif 4640 #endif
4641 4641
4642 DEFVAR_LISP ("site-module-directory", &Vsite_module_directory /* 4642 DEFVAR_LISP ("site-module-directory", &Vsite_module_directory /*
4648 For internal use by the build procedure only. 4648 For internal use by the build procedure only.
4649 configure's idea of what `site-directory' will be. 4649 configure's idea of what `site-directory' will be.
4650 */ ); 4650 */ );
4651 #ifdef PATH_SITE_MODULES 4651 #ifdef PATH_SITE_MODULES
4652 Vconfigure_site_module_directory = Ffile_name_as_directory 4652 Vconfigure_site_module_directory = Ffile_name_as_directory
4653 (build_ext_string (PATH_SITE_MODULES, Qfile_name)); 4653 (build_extstring (PATH_SITE_MODULES, Qfile_name));
4654 #else 4654 #else
4655 Vconfigure_site_module_directory = Qnil; 4655 Vconfigure_site_module_directory = Qnil;
4656 #endif 4656 #endif
4657 4657
4658 DEFVAR_LISP ("doc-directory", &Vdoc_directory /* 4658 DEFVAR_LISP ("doc-directory", &Vdoc_directory /*
4665 For internal use by the build procedure only. 4665 For internal use by the build procedure only.
4666 configure's idea of what `doc-directory' will be. 4666 configure's idea of what `doc-directory' will be.
4667 */ ); 4667 */ );
4668 #ifdef PATH_DOC 4668 #ifdef PATH_DOC
4669 Vconfigure_doc_directory = Ffile_name_as_directory 4669 Vconfigure_doc_directory = Ffile_name_as_directory
4670 (build_ext_string (PATH_DOC, Qfile_name)); 4670 (build_extstring (PATH_DOC, Qfile_name));
4671 #else 4671 #else
4672 Vconfigure_doc_directory = Qnil; 4672 Vconfigure_doc_directory = Qnil;
4673 #endif 4673 #endif
4674 4674
4675 DEFVAR_LISP ("configure-exec-prefix-directory", &Vconfigure_exec_prefix_directory /* 4675 DEFVAR_LISP ("configure-exec-prefix-directory", &Vconfigure_exec_prefix_directory /*
4676 For internal use by the build procedure only. 4676 For internal use by the build procedure only.
4677 configure's idea of what `exec-prefix-directory' will be. 4677 configure's idea of what `exec-prefix-directory' will be.
4678 */ ); 4678 */ );
4679 #ifdef PATH_EXEC_PREFIX 4679 #ifdef PATH_EXEC_PREFIX
4680 Vconfigure_exec_prefix_directory = Ffile_name_as_directory 4680 Vconfigure_exec_prefix_directory = Ffile_name_as_directory
4681 (build_ext_string (PATH_EXEC_PREFIX, Qfile_name)); 4681 (build_extstring (PATH_EXEC_PREFIX, Qfile_name));
4682 #else 4682 #else
4683 Vconfigure_exec_prefix_directory = Qnil; 4683 Vconfigure_exec_prefix_directory = Qnil;
4684 #endif 4684 #endif
4685 4685
4686 DEFVAR_LISP ("configure-prefix-directory", &Vconfigure_prefix_directory /* 4686 DEFVAR_LISP ("configure-prefix-directory", &Vconfigure_prefix_directory /*
4687 For internal use by the build procedure only. 4687 For internal use by the build procedure only.
4688 configure's idea of what `prefix-directory' will be. 4688 configure's idea of what `prefix-directory' will be.
4689 */ ); 4689 */ );
4690 #ifdef PATH_PREFIX 4690 #ifdef PATH_PREFIX
4691 Vconfigure_prefix_directory = Ffile_name_as_directory 4691 Vconfigure_prefix_directory = Ffile_name_as_directory
4692 (build_ext_string (PATH_PREFIX, Qfile_name)); 4692 (build_extstring (PATH_PREFIX, Qfile_name));
4693 #else 4693 #else
4694 Vconfigure_prefix_directory = Qnil; 4694 Vconfigure_prefix_directory = Qnil;
4695 #endif 4695 #endif
4696 4696
4697 DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory /* 4697 DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory /*
4700 Emacs's info files; the default value for Info-default-directory-list 4700 Emacs's info files; the default value for Info-default-directory-list
4701 includes this. 4701 includes this.
4702 */ ); 4702 */ );
4703 #ifdef PATH_INFO 4703 #ifdef PATH_INFO
4704 Vconfigure_info_directory = 4704 Vconfigure_info_directory =
4705 Ffile_name_as_directory (build_ext_string (PATH_INFO, Qfile_name)); 4705 Ffile_name_as_directory (build_extstring (PATH_INFO, Qfile_name));
4706 #else 4706 #else
4707 Vconfigure_info_directory = Qnil; 4707 Vconfigure_info_directory = Qnil;
4708 #endif 4708 #endif
4709 4709
4710 DEFVAR_LISP ("configure-info-path", &Vconfigure_info_path /* 4710 DEFVAR_LISP ("configure-info-path", &Vconfigure_info_path /*