Commit 0fa248bc authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(init_callproc): Set exec_directory if installation_directory is

non-nil, without a test of exec_path.
parent df01192b
......@@ -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)
......
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