(init_callproc): Set exec_directory if installation_directory is

non-nil, without a test of exec_path.
This commit is contained in:
Richard M. Stallman 1999-07-02 12:57:10 +00:00
parent df01192be7
commit 0fa248bcc0

View file

@ -1272,14 +1272,13 @@ init_callproc ()
Lisp_Object tem;
tem = Fexpand_file_name (build_string ("lib-src"),
Vinstallation_directory);
if (NILP (Fmember (tem, Vexec_path)))
{
#ifndef DOS_NT
/* MSDOS uses wrapped binaries, so don't do this. */
Vexec_path = nconc2 (Vexec_path, Fcons (tem, Qnil));
Vexec_directory = Ffile_name_as_directory (tem);
if (NILP (Fmember (tem, Vexec_path)))
Vexec_path = nconc2 (Vexec_path, Fcons (tem, Qnil));
Vexec_directory = Ffile_name_as_directory (tem);
#endif /* not DOS_NT */
}
/* Maybe use ../etc as well as ../lib-src. */
if (data_dir == 0)