diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-02-22 23:50:27 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-02-22 23:50:27 +0000 |
| commit | ca2c10802fb644daeafcb21b70345e2316505946 (patch) | |
| tree | 36f95501b4bc62c48b441984a55636a764497a61 /src/callproc.c | |
| parent | 01fa364468dd8634e30d7ddfb33b12677c2d04f3 (diff) | |
| download | emacs-ca2c10802fb644daeafcb21b70345e2316505946.tar.gz | |
(syms_of_callproc): New variable Vdoc_directory.
(init_callproc_1): Initialize it.
Diffstat (limited to 'src/callproc.c')
| -rw-r--r-- | src/callproc.c | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/src/callproc.c b/src/callproc.c index 69f2dc9e3c8..ae10f2f2012 100644 --- a/src/callproc.c +++ b/src/callproc.c @@ -75,7 +75,7 @@ extern char **environ; Lisp_Object Vbinary_process; #endif -Lisp_Object Vexec_path, Vexec_directory, Vdata_directory; +Lisp_Object Vexec_path, Vexec_directory, Vdata_directory, Vdoc_directory; Lisp_Object Vconfigure_info_directory; Lisp_Object Vshell_file_name; @@ -756,10 +756,14 @@ egetenv (var) init_callproc_1 () { char *data_dir = egetenv ("EMACSDATA"); - + char *doc_dir = egetenv ("EMACSDOC"); + Vdata_directory = Ffile_name_as_directory (build_string (data_dir ? data_dir : PATH_DATA)); + Vdoc_directory + = Ffile_name_as_directory (build_string (doc_dir ? doc_dir + : PATH_DOC)); /* Check the EMACSPATH environment variable, defaulting to the PATH_EXEC path from paths.h. */ @@ -862,6 +866,10 @@ especially executable programs intended for Emacs to invoke."); "Directory of architecture-independent files that come with GNU Emacs,\n\ intended for Emacs to use."); + DEFVAR_LISP ("doc-directory", &Vdoc_directory, + "Directory containing the DOC file that comes with GNU Emacs.\n\ +This is usually the same as data-directory."); + DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory, "For internal use by the build procedure only.\n\ This is the name of the directory in which the build procedure installed\n\ |