From e63fca4182514410b672f0e16e54d0c3d2e95a4c Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 13 Aug 2002 03:50:00 +0000 Subject: [PATCH] (Vutf_2000_lisp_directory): New variable. (Vconfigure_utf_2000_lisp_directory): Likewise. (complex_vars_of_emacs): Add new variable `utf-2000-lisp-directory' and `configure-utf-2000-lisp-directory'. --- src/emacs.c | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/src/emacs.c b/src/emacs.c index 3427e18..7833a85 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -3,6 +3,7 @@ Free Software Foundation, Inc. Copyright (C) 1995 Sun Microsystems, Inc. Copyright (C) 2000 Ben Wing. + Copyright (C) 2000,2002 MORIOKA Tomohiko. This file is part of XEmacs. @@ -284,6 +285,7 @@ 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; @@ -3633,6 +3635,23 @@ 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. */ ); -- 1.7.10.4