static bool reread_doc_file (Lisp_Object file) { if (NILP (file)) Fsnarf_documentation (Vdoc_file_name); else Fload (file, Qt, Qt, Qt, Qnil); return 1; }
static int reread_doc_file (Lisp_Object file) { #if 0 Lisp_Object reply, prompt[3]; struct gcpro gcpro1; GCPRO1 (file); prompt[0] = build_string ("File "); prompt[1] = NILP (file) ? Vdoc_file_name : file; prompt[2] = build_string (" is out of sync. Reload? "); reply = Fy_or_n_p (Fconcat (3, prompt)); UNGCPRO; if (NILP (reply)) return 0; #endif if (NILP (file)) Fsnarf_documentation (Vdoc_file_name); else Fload (file, Qt, Qt, Qt, Qnil); return 1; }
/* Called from main(). */ bool sys_init(char *program_name) { int argc; char **argv; repv head, *last; gtk_set_locale (); if (!batch_mode_p ()) setpgid (0, 0); make_argv (Fcons (Fsymbol_value (Qprogram_name, Qt), Fsymbol_value (Qcommand_line_args, Qt)), &argc, &argv); /* We need to initialise GTK now. The rep-gtk library will not reinitialise it.. */ gtk_init (&argc, &argv); argc--; argv++; head = Qnil; last = &head; while(argc > 0) { *last = Fcons(rep_string_copy(*argv), Qnil); last = &rep_CDR(*last); argc--; argv++; } Fset (Qcommand_line_args, head); def_font_str = rep_VAL (&def_font_str_data); #ifdef HAVE_X11 get_resources (program_name); #endif get_options (); use_options (); color_map = gdk_colormap_get_system (); gtk_meta_mod = gtk_find_meta (); /* Loading the gtk rep library will replace the usual event loop with one that works with GTK. */ rep_INTERN(gtk_feature); #if rep_INTERFACE >= 9 Frequire (Qgtk_feature); #else Fload (rep_string_copy ("gtk"), Qnil, Qnil, Qnil, Qnil); #endif if (!rep_throw_value) { /* Find the gtkobj<->lispobj converters */ gtk_jade_wrap_gtkobj = rep_find_dl_symbol (Qgtk_feature, "sgtk_wrap_gtkobj"); gtk_jade_get_gtkobj = rep_find_dl_symbol (Qgtk_feature, "sgtk_get_gtkobj"); gtk_jade_callback_postfix = rep_find_dl_symbol (Qgtk_feature, "sgtk_callback_postfix"); assert (gtk_jade_wrap_gtkobj != 0 && gtk_jade_get_gtkobj != 0 && gtk_jade_callback_postfix != 0); return true; } else return false; }