diff src/emacs.c @ 371:cc15677e0335 r21-2b1

Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents a4f53d9b3154
children 6240c7796c7a
line wrap: on
line diff
--- a/src/emacs.c	Mon Aug 13 11:01:58 2007 +0200
+++ b/src/emacs.c	Mon Aug 13 11:03:08 2007 +0200
@@ -107,7 +107,6 @@
 /* Version numbers and strings */
 Lisp_Object Vemacs_major_version;
 Lisp_Object Vemacs_minor_version;
-Lisp_Object Vemacs_patch_level;
 Lisp_Object Vemacs_beta_version;
 Lisp_Object Vxemacs_codename;
 #ifdef INFODOCK
@@ -218,7 +217,6 @@
 Lisp_Object Qkill_emacs_hook;
 Lisp_Object Qsave_buffers_kill_emacs;
 
-extern Lisp_Object Vauto_save_list_file_name;
 
 /* Signal code for the fatal signal that was received */
 static int fatal_error_code;
@@ -532,8 +530,7 @@
   extern int malloc_cookie;
 #endif
 
-#if (!defined (SYSTEM_MALLOC) && !defined (HAVE_LIBMCHECK)	\
-     && !defined (DOUG_LEA_MALLOC))
+#if !defined(SYSTEM_MALLOC) && !defined(HAVE_LIBMCHECK)
   /* Make sure that any libraries we link against haven't installed a
      hook for a gmalloc of a potentially incompatible version. */
   /* If we're using libmcheck, the hooks have already been initialized, */
@@ -541,7 +538,7 @@
   __malloc_hook = NULL;
   __realloc_hook = NULL;
   __free_hook = NULL;
-#endif /* not SYSTEM_MALLOC or HAVE_LIBMCHECK or DOUG_LEA_MALLOC */
+#endif /* not SYSTEM_MALLOC */
 
   noninteractive = 0;
 
@@ -615,9 +612,6 @@
 #if defined (HAVE_MMAP) && defined (REL_ALLOC)
   /* ralloc can only be used if using the GNU memory allocator. */
   init_ralloc ();
-#elif defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
-  if (initialized)
-    init_ralloc();
 #endif
 
 #ifdef HAVE_SOCKS
@@ -868,10 +862,8 @@
       syms_of_abbrev ();
       syms_of_alloc ();
 #ifdef HAVE_X_WINDOWS
-#ifdef HAVE_BALLOON_HELP
       syms_of_balloon_x ();
 #endif
-#endif
       syms_of_buffer ();
       syms_of_bytecode ();
       syms_of_callint ();
@@ -985,11 +977,6 @@
 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
       syms_of_gui_x ();
 #endif
-#ifdef HAVE_XIM
-#ifdef XIM_XLIB
-      syms_of_input_method_xlib ();
-#endif
-#endif /* HAVE_XIM */
 #endif /* HAVE_X_WINDOWS */
 
 #ifdef HAVE_MS_WINDOWS
@@ -1009,9 +996,6 @@
 #ifdef HAVE_MSW_C_DIRED
       syms_of_dired_mswindows ();
 #endif
-#ifdef WINDOWSNT
-      syms_of_ntproc ();
-#endif
 #endif	/* HAVE_MS_WINDOWS */
 
 #ifdef MULE
@@ -1020,7 +1004,7 @@
       syms_of_mule_charset ();
 #endif
 #ifdef FILE_CODING
-      syms_of_file_coding ();
+      syms_of_mule_coding ();
 #endif
 #ifdef MULE
 #ifdef HAVE_WNN
@@ -1197,7 +1181,7 @@
 
       lstream_type_create ();
 #ifdef FILE_CODING
-      lstream_type_create_file_coding ();
+      lstream_type_create_mule_coding ();
 #endif
 #if defined (HAVE_MS_WINDOWS) && !defined(HAVE_MSG_SELECT)
       lstream_type_create_mswindows_selectable ();
@@ -1262,15 +1246,12 @@
       vars_of_abbrev ();
       vars_of_alloc ();
 #ifdef HAVE_X_WINDOWS
-#ifdef HAVE_BALLOON_HELP
       vars_of_balloon_x ();
 #endif
-#endif
       vars_of_buffer ();
       vars_of_bytecode ();
       vars_of_callint ();
       vars_of_callproc ();
-      vars_of_chartab ();
       vars_of_cmdloop ();
       vars_of_cmds ();
       vars_of_console ();
@@ -1330,9 +1311,6 @@
       vars_of_menubar ();
 #endif
       vars_of_minibuf ();
-#ifdef WINDOWSNT
-      vars_of_ntproc ();
-#endif
       vars_of_objects ();
       vars_of_print ();
 
@@ -1417,11 +1395,10 @@
 
 #ifdef MULE
       vars_of_mule ();
-      vars_of_mule_ccl ();
       vars_of_mule_charset ();
 #endif
 #ifdef FILE_CODING
-      vars_of_file_coding ();
+      vars_of_mule_coding ();
 #endif
 #ifdef MULE
 #ifdef HAVE_WNN
@@ -1493,7 +1470,7 @@
       complex_vars_of_mule_charset ();
 #endif
 #if defined(FILE_CODING)
-      complex_vars_of_file_coding ();
+      complex_vars_of_mule_coding ();
 #endif
 
       /* This calls allocate_glyph(), which creates specifiers
@@ -1998,7 +1975,7 @@
       total_len += wampum_all_len[ac];
     }
   DO_REALLOC (run_temacs_args, run_temacs_args_size, total_len, char);
-  DO_REALLOC (run_temacs_argv, run_temacs_argv_size, nargs+2, char *);
+  DO_REALLOC (run_temacs_argv, run_temacs_argv_size, nargs+1, char *);
 
   memcpy (run_temacs_args, wampum, namesize);
   run_temacs_argv [0] = run_temacs_args;
@@ -2098,7 +2075,7 @@
 
 	 06/20/96 robertl@dgii.com */
       {
-	extern char **_environ;
+	extern char *_environ;
 	if ((unsigned) environ == 0)
 	  environ=_environ;
       }
@@ -2212,12 +2189,6 @@
 
   shut_down_emacs (0, ((STRINGP (arg)) ? arg : Qnil));
 
-  /* If we have an auto-save list file,
-     kill it because we are exiting Emacs deliberately (not crashing).
-     Do it after shut_down_emacs, which does an auto-save.  */
-  if (STRINGP (Vauto_save_list_file_name))
-      unlink ((char *) XSTRING_DATA (Vauto_save_list_file_name));
-
 #if defined(GNU_MALLOC)
   __free_hook = voodoo_free_hook;
 #endif
@@ -2278,16 +2249,12 @@
 	("Your files have been auto-saved.\n"
 	 "Use `M-x recover-session' to recover them.\n"
 	 "\n"
-         "If you have access to the PROBLEMS file that came with your\n"
-         "version of XEmacs, please check to see if your crash is described\n"
-         "there, as there may be a workaround available.\n"
 #ifdef INFODOCK
-	 "Otherwise, please report this bug by selecting `Report-Bug'\n"
-         "in the InfoDock menu.\n"
+	 "Please report this bug by selecting `Report-Bug' in the InfoDock\n"
+	 "menu.\n"
 #else
-	 "Otherwise, please report this bug by running the send-pr\n"
-         "script included with XEmacs, or selecting `Send Bug Report'\n"
-         "from the help menu.\n"
+	 "Please report this bug by running the send-pr script included\n"
+	 "with XEmacs, or selecting `Send Bug Report' from the help menu.\n"
 	 "As a last resort send ordinary email to `crashes@xemacs.org'.\n"
 #endif
 	 "*MAKE SURE* to include the information in the command\n"
@@ -2550,7 +2517,7 @@
 
   GET_C_CHARPTR_INT_FILENAME_DATA_ALLOCA (path, newpath);
 
-  len = strlen ((const char *) newpath);
+  len = strlen (newpath);
   /* #### Does this make sense?  It certainly does for
      decode_env_path(), but it looks dubious here.  Does any code
      depend on decode_path("") returning nil instead of an empty
@@ -2777,20 +2744,7 @@
 */ );
   Vemacs_minor_version = make_int (EMACS_MINOR_VERSION);
 
-  DEFVAR_LISP ("emacs-patch-level", &Vemacs_patch_level /*
-The patch level of this version of Emacs, as an integer.
-The value is non-nil if this version of XEmacs is part of a series of
-stable XEmacsen, but has bug fixes applied.
-Warning: this variable does not exist in FSF Emacs or in XEmacs versions
-earlier than 21.1.1
-*/ );
-#ifdef EMACS_PATCH_LEVEL
-  Vemacs_patch_level = make_int (EMACS_PATCH_LEVEL);
-#else
-  Vemacs_patch_level = Qnil;
-#endif
-
-    DEFVAR_LISP ("emacs-beta-version", &Vemacs_beta_version /*
+  DEFVAR_LISP ("emacs-beta-version", &Vemacs_beta_version /*
 Beta number of this version of Emacs, as an integer.
 The value is nil if this is an officially released version of XEmacs.
 Warning: this variable does not exist in FSF Emacs or in XEmacs versions
@@ -3094,7 +3048,6 @@
  * cores on us when re-started from the dumped executable.
  * This will have to go for 21.1  -- OG.
  */
-void __sti__iflPNGFile_c___(void);
 void __sti__iflPNGFile_c___()
 {
 }