Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 12:27:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

(init_lread): Use Vinstallation_directory.

Browse source
This commit is contained in:
Richard M. Stallman 1994-01-17 00:44:38 +00:00
parent 89de89c7d1
commit 74180aa4ea
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/lread.c
View file

@ -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));
}
}