Mercurial > hg > xemacs-beta
diff src/emacs.c @ 175:2d532a89d707 r20-3b14
Import from CVS: tag r20-3b14
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:50:14 +0200 |
parents | 8eaf7971accc |
children | 6075d714658b |
line wrap: on
line diff
--- a/src/emacs.c Mon Aug 13 09:49:11 2007 +0200 +++ b/src/emacs.c Mon Aug 13 09:50:14 2007 +0200 @@ -84,6 +84,10 @@ /* Variable whose value is string giving configuration built for. */ Lisp_Object Vsystem_configuration; +/* Variable whose value is string containing the configuration options + XEmacs was built with. */ +Lisp_Object Vsystem_configuration_options; + /* Version numbers and strings */ Lisp_Object Vemacs_major_version; Lisp_Object Vemacs_minor_version; @@ -1254,8 +1258,6 @@ /* Calls Fmake_range_table(). */ complex_vars_of_search (); - /* Calls Fmake_hashtable(). */ - complex_vars_of_event_stream (); /* Calls make_lisp_hashtable(). */ complex_vars_of_extents (); @@ -1275,8 +1277,8 @@ could require that the charsets be initialized. */ complex_vars_of_glyphs (); - /* This relies on the glyphs just created in the previous function, - and calls Fadd_spec_to_specifier(), which relies on various + /* These rely on the glyphs just created in the previous function, + and call Fadd_spec_to_specifier(), which relies on various variables initialized above. */ #ifdef HAVE_X_WINDOWS complex_vars_of_glyphs_x (); @@ -1341,6 +1343,8 @@ initialized in the vars_of_*() section) and possibly other stuff. */ complex_vars_of_keymap (); + /* Calls Fmake_hashtable() and creates a keymap */ + complex_vars_of_event_stream (); if (always_gc) /* purification debugging hack */ garbage_collect_1 (); @@ -2299,6 +2303,15 @@ */ ); Vsystem_configuration = Fpurecopy (build_string (EMACS_CONFIGURATION)); +#ifndef EMACS_CONFIG_OPTIONS +# define EMACS_CONFIG_OPTIONS "UNKNOWN" +#endif + DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options /* +String containing the configuration options XEmacs was built with. +*/ ); + Vsystem_configuration_options = Fpurecopy (build_string + (EMACS_CONFIG_OPTIONS)); + DEFVAR_LISP ("emacs-major-version", &Vemacs_major_version /* Major version number of this version of Emacs, as an integer. Warning: this variable did not exist in Emacs versions earlier than: