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: