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.
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;
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. */
vars_of_postgresql();
#endif
-#ifdef HAVE_CONCORD
- vars_of_concord ();
-#endif
-
#ifdef HAVE_GPM
vars_of_gpmevent ();
#endif
#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
#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.
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.
*/ );