Commit 35a2f4b8 authored by Karl Heuer's avatar Karl Heuer
Browse files

(syms_of_callproc): New variable Vdoc_directory.

(init_callproc_1): Initialize it.
parent ba870521
......@@ -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\
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment