From 74180aa4ea4bf379947251a929eae8ff8a35de43 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 17 Jan 1994 00:44:38 +0000 Subject: [PATCH] (init_lread): Use Vinstallation_directory. --- src/lread.c | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/src/lread.c b/src/lread.c index 6c2854a15b8..2ee7fbf12cc 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1849,15 +1849,14 @@ init_lread () if (! NILP (Fequal (dump_path, Vload_path))) { Vload_path = decode_env_path (0, normal); - if (!NILP (Vinvocation_directory)) + if (!NILP (Vinstallation_directory)) { - /* Add to the path the ../lisp dir of the Emacs executable, - if that dir exists. */ - Lisp_Object tem, tem1; - tem = Fexpand_file_name (build_string ("../lisp"), - Vinvocation_directory); - tem1 = Ffile_exists_p (tem); - if (!NILP (tem1) && NILP (Fmember (tem, Vload_path))) + /* Add to the path the lisp subdir of the + installation dir. */ + Lisp_Object tem; + tem = Fexpand_file_name (build_string ("lisp"), + Vinstallation_directory); + if (NILP (Fmember (tem, Vload_path))) Vload_path = nconc2 (Vload_path, Fcons (tem, Qnil)); } } -- 2.39.5