From 0fa248bcc0cac1519c0ec75a43e3ba8a2b8f09e6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 2 Jul 1999 12:57:10 +0000 Subject: (init_callproc): Set exec_directory if installation_directory is non-nil, without a test of exec_path. --- src/callproc.c | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/callproc.c b/src/callproc.c index d6be8b6ff03..61b25e15e9f 100644 --- a/src/callproc.c +++ b/src/callproc.c @@ -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) -- cgit v1.2.3