From 9fbc011645bf22b2d8907f8d824778af326fc11f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 2 Jul 1997 06:20:12 +0000 Subject: [PATCH] (init_lread): Add leim subdir, like lisp subdir. --- src/lread.c | 21 ++++++++++++++++++--- 1 file changed, 18 insertions(+), 3 deletions(-) diff --git a/src/lread.c b/src/lread.c index 12482552cd3..fb4d7554f92 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2502,6 +2502,16 @@ init_lread () Lisp dirs instead. */ Vload_path = nconc2 (Vload_path, dump_path); + /* Add leim under the installation dir, if it exists. */ + tem = Fexpand_file_name (build_string ("leim"), + Vinstallation_directory); + tem1 = Ffile_exists_p (tem); + if (!NILP (tem1)) + { + if (NILP (Fmember (tem, Vload_path))) + Vload_path = nconc2 (Vload_path, Fcons (tem, Qnil)); + } + /* Add site-list under the installation dir, if it exists. */ tem = Fexpand_file_name (build_string ("site-lisp"), Vinstallation_directory); @@ -2513,9 +2523,8 @@ init_lread () } /* If Emacs was not built in the source directory, - and it is run from where it was built, - add to load-path - the lisp and site-lisp dirs under the source directory. */ + and it is run from where it was built, add to load-path + the lisp, leim and site-lisp dirs under that directory. */ if (NILP (Fequal (Vinstallation_directory, Vsource_directory))) { @@ -2530,6 +2539,12 @@ init_lread () if (NILP (Fmember (tem, Vload_path))) Vload_path = nconc2 (Vload_path, Fcons (tem, Qnil)); + tem = Fexpand_file_name (build_string ("leim"), + Vsource_directory); + + if (NILP (Fmember (tem, Vload_path))) + Vload_path = nconc2 (Vload_path, Fcons (tem, Qnil)); + tem = Fexpand_file_name (build_string ("site-lisp"), Vsource_directory); -- 2.39.2