mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-28 16:21:07 -08:00
(syms_of_callproc): New variable Vdoc_directory.
(init_callproc_1): Initialize it.
This commit is contained in:
parent
ba87052134
commit
35a2f4b8cb
1 changed files with 10 additions and 2 deletions
|
|
@ -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\
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue