X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Femacs.c;h=7ca25484be56dafbb0a42b3d5cb905a85bf21718;hb=63a686a3d18465a8c96b8cc4a273c295f8a5a379;hp=87c77c4f7f934ae5ab46455baf1874b6ce82fffa;hpb=f8d95d8bac40f8eab38a308475ae1a66293e53d6;p=chise%2Fxemacs-chise.git.1

diff --git a/src/emacs.c b/src/emacs.c
index 87c77c4..7ca2548 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -3,7 +3,6 @@
    Free Software Foundation, Inc.
    Copyright (C) 1995 Sun Microsystems, Inc.
    Copyright (C) 2000, 2002 Ben Wing.
-   Copyright (C) 2000,2002 MORIOKA Tomohiko.
 
 This file is part of XEmacs.
 
@@ -293,7 +292,6 @@ Lisp_Object Vexec_path;
 Lisp_Object Vexec_directory, Vconfigure_exec_directory;
 Lisp_Object Vlisp_directory, Vconfigure_lisp_directory;
 Lisp_Object Vmule_lisp_directory, Vconfigure_mule_lisp_directory;
-Lisp_Object Vutf_2000_lisp_directory, Vconfigure_utf_2000_lisp_directory;
 Lisp_Object Vmodule_directory, Vconfigure_module_directory;
 Lisp_Object Vsite_module_directory, Vconfigure_site_module_directory;
 Lisp_Object Vconfigure_package_path;
@@ -1589,10 +1587,6 @@ main_1 (int argc, char **argv, char **envp, int restart)
       syms_of_postgresql ();
 #endif
 
-#ifdef HAVE_CONCORD
-      syms_of_concord ();
-#endif
-
       /* Now create the subtypes for the types that have them.
 	 We do this before the vars_*() because more symbols
 	 may get initialized here. */
@@ -2048,10 +2042,6 @@ main_1 (int argc, char **argv, char **envp, int restart)
       vars_of_postgresql();
 #endif
 
-#ifdef HAVE_CONCORD
-      vars_of_concord ();
-#endif
-
 #ifdef HAVE_GPM
       vars_of_gpmevent ();
 #endif
@@ -3080,7 +3070,7 @@ shut_down_emacs (int sig, Lisp_Object stuff, int no_auto_save)
 #else
 	 "Please report this bug by invoking M-x report-emacs-bug,\n"
 	 "or by selecting `Send Bug Report' from the Help menu.  If necessary, send\n"
-	 "ordinary email to `crashes@xemacs.org'.  *MAKE SURE* to include the XEmacs\n"
+	 "ordinary email to `xemacs-beta@xemacs.org'.  *MAKE SURE* to include the XEmacs\n"
 	 "configuration from M-x describe-installation, or equivalently the file\n"
 	 "Installation in the top of the build tree.\n"
 #endif
@@ -3623,34 +3613,7 @@ Codename of this version of Emacs (a string).
 #ifndef XEMACS_CODENAME
 #define XEMACS_CODENAME "Noname"
 #endif
-#ifdef MULE
-  {
-    char dest[129];
-    char src[64] = XEMACS_CODENAME;
-    unsigned char* sp = (unsigned char*)src;
-    int i = 0, chr;
-
-    while ( (chr = *sp++) && (i < 128) )
-      {
-	if (chr <= 0x7F)
-	  dest[i++] = chr;
-	else
-	  {
-#ifdef UTF2000
-	    dest[i++] = (chr >> 6) | 0xC0;
-	    dest[i++] = (chr & 0x3F) | 0x80;
-#else
-	    dest[i++] = LEADING_BYTE_LATIN_ISO8859_1;
-	    dest[i++] = chr;
-#endif
-	  }
-      }
-    dest[i] = 0;
-    Vxemacs_codename = build_string (dest);
-  }
-#else  
   Vxemacs_codename = build_string (XEMACS_CODENAME);
-#endif
 
   /* Lisp variables which contain command line flags.
 
@@ -3859,23 +3822,6 @@ configure's idea of what `mule-lisp-directory' will be.
   Vconfigure_mule_lisp_directory = Qnil;
 #endif
 
-  DEFVAR_LISP ("utf-2000-lisp-directory", &Vutf_2000_lisp_directory /*
-*Directory of UTF-2000 Lisp files that come with XEmacs.
-*/ );
-  Vutf_2000_lisp_directory = Qnil;
-
-  DEFVAR_LISP ("configure-utf-2000-lisp-directory",
-	       &Vconfigure_utf_2000_lisp_directory /*
-For internal use by the build procedure only.
-configure's idea of what `utf-2000-lisp-directory' will be.
-*/ );
-#ifdef PATH_UTF2000LOADSEARCH
-  Vconfigure_utf_2000_lisp_directory = Ffile_name_as_directory
-    (build_string ((char *) PATH_UTF2000LOADSEARCH));
-#else
-  Vconfigure_utf_2000_lisp_directory = Qnil;
-#endif
-
   DEFVAR_LISP ("module-directory", &Vmodule_directory /*
 *Directory of core dynamic modules that come with XEmacs.
 */ );